- '***********************************************************************************************************
- ' Name : xIsEven
- ' Purpose : Test if a number is even.
- ' Syntax : xIsEven(Number)
- ' Parameters : Number : Number to be tested
- ' Return : True or False
- '***********************************************************************************************************
- Public Function xIsEven(ByVal Number As Long) As Boolean
- xIsEven = Not -(Number And 1)
- End Function
-
-
- '***********************************************************************************************************
- ' Name : xIsOdd
- ' Purpose : Test if a number is odd.
- ' Syntax : xIsOdd(Number)
- ' Parameters : Number : Number to be tested
- ' Return : True or False
- '***********************************************************************************************************
- Public Function xIsOdd(ByVal Number As Long) As Boolean
- xIsOdd = -(Number And 1)
- End Function
'***********************************************************************************************************
' Name : xIsEven
' Purpose : Test if a number is even.
' Syntax : xIsEven(Number)
' Parameters : Number : Number to be tested
' Return : True or False
'***********************************************************************************************************
Public Function xIsEven(ByVal Number As Long) As Boolean
xIsEven = Not -(Number And 1)
End Function
'***********************************************************************************************************
' Name : xIsOdd
' Purpose : Test if a number is odd.
' Syntax : xIsOdd(Number)
' Parameters : Number : Number to be tested
' Return : True or False
'***********************************************************************************************************
Public Function xIsOdd(ByVal Number As Long) As Boolean
xIsOdd = -(Number And 1)
End Function