Testing for even and odd number.

[jspencer]

Can anyone think of a smart way to use the framework classes to test a number and tell me whether it's even or odd?

 

I can test the last character in the number and if it's 0,2,4,6,8 then the number is even. This doesn't sound very smart though.

 

Thanks.

[jspencer]

This code works, but is decidedly average:

 

   Public Function EvenNumber(ByVal Number As Integer) As Boolean

           Dim Result As Integer
           Result = Convert.ToInt32(Number.ToString.Substring(Number.ToString.Length - 1, 1))

           Select Case Result
               Case 0, 2, 4, 6, 8
                   Return True
               Case Else
                   Return False
           End Select

   End Function

[Robby]

try this

 

Dim x As Integer = 48

If x Mod 2 = 0 Then

'true

Else

'false

End If

[jspencer]

Thanks Robby, I'll give it a whirl.