IsEven + IsOdd

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 222 Downloads 78

'Check', 'Test', 'IsEven', 'IsOdd', 'If', 'logical', 'condition', 'NotMyWork'

ANmarAmdeen
323
Math Classic ASP
Revisions

v1.0