IsOdd()? Yes, Is Very Odd.

I'm really at a loss of words over this code that Scott Wickham sent. I honestly can't think of anything to possibly say to augment this very, very odd way of checking for odds and evens, so here goes ...

Function IsEven(N)
  Dim LastDigit
  LastDigit = int(N) mod 10
  IsEven = (LastDigit = 0) or (LastDigit = 2) or _
     (LastDigit = 4) or (LastDigit = 6) or (LastDigit = 8)
End Function

Function IsOdd(N)
  Dim LastDigit
  LastDigit = int(N) mod 10
  IsOdd = (LastDigit = 1) or (LastDigit = 3) or _
     (LastDigit = 5) or (LastDigit = 7) or (LastDigit = 9)
End Function

And for users of the forum, in case you didn't get the emails, I upgraded the software over the weekend and needed to reset all passwords due to a different hashing algorithm being used.

[Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!