VBA Testing for integer value

[JeffGrant]

Hi All,

I have a test like x = (b-a)/3

where a & b are row numbers.

How can I test that x is an integer. If x is not an integer, then I have to run another routine.

I'm not sure what vba function I can use to check for whole numbers.

Thanks

 

[Ouka]

Noting in case others come across this like I did looking for an answer and it doesn't immediately work as expected

The code works, but not if you declare your variables incorrectly. If you use Integer or Long, x will always evaluate to true so long as it is numeric. If you don't declare, or declare as Single or Double then it will work

Private Sub test1()

'Dim x 'x = 1.4 is not an integer
'Dim x as Integer 'x = 1.4 is an integer
'Dim x as Long 'x = 1.4 is an integer
'Dim x as Single 'x = 1.4 is not an integer
'Dim x As Double 'x = 1.4 is not an integer

x = 1.4

If Int(x) = x Then
MsgBox "x (" & x & ") is an integer"
Else
MsgBox "x (" & x & ") is not an integer"
End If


End Sub