VBScript IsEven

'********************************************************************

'*

'* Function IsEven

'*

'*   Author: NetworkAdminKB.com

'*  Created: 2004-12-21

'* Modified: 2004-12-21

'*

'* Purpose: Return a Boolean indicating if the number is Even or Odd.

'*

'* Input: anyNum = The to test if Even or Not

'*

'* Output: Return a Boolean indicating if the number is Even or Odd.

'*           True  = The number is Even

'*           False = The number is Odd

'*

'********************************************************************

Function IsEven(ByVal anyNum)

  'Determines if a number is even or odd.

  IsEven = Not CBool(anyNum Mod 2)

End Function 'IsEven

Article ID: 398, Created On: 9/25/2011, Modified: 9/25/2011