even

[ranswert]

How do I find out if a variable is even?
Thanks

 

[Mike H]

Use the MOD function

myvariable = 9
If (myvariable Mod 2) > 0 Then
MsgBox "Odd"
Else
MsgBox "Even"
End If

Mike

 

[ranswert]

Thanks I'll give that a try.

Use the MOD function

myvariable = 9
If (myvariable Mod 2) > 0 Then
MsgBox "Odd"
Else
MsgBox "Even"
End If

Mike

 

[Dana DeLouis]

How do I find out if a variable is even?

Just make sure you are working with Integers since vba's MOD rounds the
input.

Sub xxx()
Dim n
n = 9.5

'Considered Even
If (n Mod 2) > 0 Then
MsgBox "Odd"
Else
MsgBox "Even"
End If

'Odd
MsgBox WorksheetFunction.IsOdd(9.999999999)
'Even
MsgBox WorksheetFunction.IsOdd(9.9999999999)
End Sub

 

[Rick Rothstein \(MVP - VB\)]

You can also do it this way (execution should be marginally faster)...

MyVariable = 9
If MyVariable And 1 Then
MsgBox "Odd"
Else
MsgBox "Even"
End If

Rick