• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Even or Odd function.

Even or Odd function.

Even or Odd function.

Rate Even or Odd function.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Jack Jarvis
Dim W, another As Single
Dim it As String
Dim x As Integer
W = thenumber / 2 ' divide the number by 2
another = Len(W) ' set the length
x = 1
Do
it = Mid(W, x, 1) ' look at each number individually
If it = "." Then GoTo 25 'if it has a decimal then its odd I.E whole number"
x = x + 1 ' move to next letter
On Error GoTo 30 ' if it a single even number then it only has one number so exit function with a value of even
Loop Until x = another ' go until all of the number has been examined
GoTo 30
25
isitevenorodd = "ODD"
Exit Function
30
isitevenorodd = "Even"
End Function