How can I check to if a number has a decimal or not?

If Instr(1,Number,".") > 0 Then

Yehuda

Yehuda, that works only in English (or any other language that use the dot as separator.)
A safer (and faster) test:

if Fix(lNum) <> lNum then

Marco

Interesting. I am curious as to your reasoning but this should work.

Dim fVal As Single
Dim lVal As Long
Dim bIsWholeNumber As Boolean

' This is your number: input
fVal = 1956854.5684 ' Your number
' Convert to a long
lVal = CLng(fVal)
' Test to see if the values are equal
' If no then you know the original value
' was not a whole number
bIsWholeNumber = IIf(lVal = fVal, True, False)

' Do what ever you do after you know
MsgBox bIsWholeNumber

Let me know if this works for you.




Larry Asher

I had forgotten about the country issue (it has been quite a while since I have developed a multinational product). Thanks.

Larry, your code will work only the if it is possible to convert the number into a long. With big numbers the statement CLng(fVal) will thrown an error (this is why I used Fix instead of CLng)

BTW the line
bIsWholeNumber = IIf(lVal = fVal, True, False)
could be written simply (and faster) as
bIsWholeNumber = (lVal = fVal)
(well, I hate the IIF... it is so moronic)

Marco