yet another isNumeric question

Apparently letters that can evaluate as numbers pass VB's isNumeric function. Such as "e"

Are there any other letter-based expressions that pass isNumeric? Is there a function that genuinely checks to make sure the data is composed of digits and digits only? Or does that have to be customized...

Quote:

---

Originally posted by bitsy
Apparently letters that can evaluate as numbers pass VB's isNumeric function. Such as "e"

---

What do you mean?

This produces "I'm not"

VB Code:

If IsNumeric("e") Then
    MsgBox "I'm Numeric"
Else
    MsgBox "I'm not"
End If

The reason is that numbers can be things like 10E14.

Numbers can have period, + signs - signs etc.

Change the contents of the first string in the code sample to match what you think a number must contain
[code]
Function IsANumber(str as String) as Boolean
Dim nums as String
nums = "1234567890-."
for x = 1 to len(str)
If instr(nums,mid(str,x,1)=0 then
IsANumberr=False
Exit Function
End If
next x
IsANumber= True
End Function

e is for exponents and d is for decimals. I usually force the the text box only to accept 0-9 and .

VB Code:

If IsNumeric("6e2") Then
    MsgBox "I'm Numeric"
Else
    MsgBox "I'm not"
End If
 
 
If IsNumeric("6d2") Then
    MsgBox "I'm Numeric"
Else
    MsgBox "I'm not"
End If

AndyL

thanks for the help. The custom function works great.

That function will tell you that things like -12-3 are numeric.