Odd/even numbers

[Steve1016]

Does anybody have any good code on how to determine whether a number is even or odd? I came up with some simplistic code using a For Next loop, but im looking for something better. Thanx a lot.

[Juan Carlos Rey]

Use Mod:

-------------
If Number Mod 2 = 0 then ' Number is even
Else ' Number is odd
End If
-------------

[Ruchi]

This gives you an idea of how to determine whether a number is even or odd.


Dim mlimit As Integer
Dim num As Integer
mlimit = 20

Case EVEN
For num = 0 To mlimit
If num Mod 2 = 0 Then
If num > 0 Then Debug.Print num;
End If
Next num

Case ODD
For num = 0 To mlimit
If num Mod 2 = 1 Then
If num > 0 Then Debug.Print num;
End If
Next num


Hope this helps.

Ruchi

[This message has been edited by Ruchi (edited 01-08-2000).]

[Tonio169]

You can also use this function which returns True if the number is even, False if it is odd.

Function IsEven(iEven as Long) as Boolean
IsEven = (iEven mod 2 = 0)
End Function