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
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.