PDA

View Full Version : Solved: if odd even numbers



AmardeepD
02-19-2008, 08:55 AM
Ok so I am trying to write a If statement that if a variable is an odd number then it will use one formulae and if it is an even number it will use a different one.
I tried using

If variable Is Odd Then
'formula 1
Else
'formula2
End If

however Odd/Even aren't useable criteria, do you guys know how I could solve this or if there is something i could use instead of odd?

Bob Phillips
02-19-2008, 09:03 AM
If myVar Mod 2 = 1 Then

MsgBox "odd"
Else

MsgBox "even"
End If

AmardeepD
02-19-2008, 09:11 AM
Thanks Xld youve done it again :wizard:

Digita
02-19-2008, 06:04 PM
Hi,

Sub OddorEven()
If Var Mod 2 = 0 Then
'use formula 1
Else
'use formula 2
End If
End Sub


Hope this helps.

Regards


kp

pal950
09-06-2016, 12:31 AM
Sub Button2_click()
Dim x As Integer
Dim y As Integer
x = InputBox("Please enter the Number")
If x Mod 2 Then
MsgBox "The Number is the Odd Number"
Else
MsgBox "The Number is the Even Number"
End If
End Sub

pal950
09-06-2016, 12:31 AM
Public Function IsEven(ByVal Number As Long) As Boolean
IsEven = (Number Mod 2 = 0)
End Function

Public Sub findEvenOdd()
Dim x As Integer
x = InputBox("Please enter the number")
If IsEven(x) Then
MsgBox "The Number is the Even Number"
Else
MsgBox "The Number is the Odd Number"
End If
End Sub