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,647
Downloads 1,447
CodeID
DB ID