even

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

ranswert - 18 Mar 2008 15:40 GMT

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

Reply to this Message

Mike H - 18 Mar 2008 15:50 GMT

Use the MOD function

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

Mike

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

Reply to this Message

ranswert - 18 Mar 2008 16:08 GMT

Thanks I'll give that a try.

> Use the MOD function
>
[quoted text clipped - 9 lines]
> > How do I find out if a variable is even?
> > Thanks

Reply to this Message

Dana DeLouis - 18 Mar 2008 19:29 GMT

>> > 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

Signature

HTH :>)
Dana DeLouis
Windows XP & Excel 2007

> Thanks I'll give that a try.
>
[quoted text clipped - 11 lines]
>> > How do I find out if a variable is even?
>> > Thanks

Reply to this Message

Rick Rothstein (MVP - VB) - 19 Mar 2008 05:15 GMT

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

> Use the MOD function
>
[quoted text clipped - 9 lines]
>> How do I find out if a variable is even?
>> Thanks

Reply to this Message