Returns True if integer is even by using IsEven
While IsOdd, will returns True if integer is Odd
Function IsEven(Value)
IsEven = ((Clng(Value) And Cbyte(1)) = 0)
End Function",""
Function IsOdd(Value)
IsOdd = ((Clng(Value) And Cbyte(1)) = 1)
End Function",""
Value
Views 3,640
Downloads 1,441
CodeID
DB ID