June 17th, 2007

Programming / WTF — 3 Comments
17
Jun 07

Bothness

Apparently numbers can be both odd and even…

If IsNumeric(StreetNumberValue) Then
  If 2 Mod CType(StreetNumberValue, Integer) = 0 Then
    OddEven = "E" 'Even
  Else
    OddEven = "O" 'Odd
  End If
Else
  OddEven = "B" 'Both
End If

As seen here:

http://worsethanfailure.com/Articles/Odd-or-Even-or-Both.aspx