Even Odd number 1

[AdamVerellen]

I can't seem to find a function to tell if a number is even or odd. Someone lend a hand

Adam

 

[zemp]

Use the mod operator to determine the remainer. If you divide by 2 and the remainder is zero then the number is even.

if <Value> mod 2 = 0 then
'even
else
'odd
end if Thanks and Good Luck!

zemp

 

[johnwm]

Public Function fnIsEven(inp As Long) As Boolean
fnIsEven = Not (inp Mod 2)
End Function


Note: You will need to error check input etc!
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[harebrain]

Try

result = intX MOD 2

If the result is zero, intX is even. There's only one other possibility (provided intX is an integer) and that's result is one, which would mean intX is odd.

HTH,
David

 

[ADoozer]

i dont know if theres a built in function but try this

Private Function IsEven(YourVal As Integer) As Boolean
If YourVal Mod 2 Then
IsEven = False
Else
IsEven = True
End If
End Function

If somethings hard to do, its not worth doing - Homer Simpson

 

[ADoozer]

doh!!! LOL If somethings hard to do, its not worth doing - Homer Simpson

 

[johnwm]

Well that seems to be fairly conclusive!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'