how can i check if an value is integer or string?

S

Stefan Hoffmann

hi,
how can i check if an value is integer or string?

Public Function IsInteger(AValue As Variant) As Boolean

On Local Error GoTo LocalError

Dim dummy As Integer

Dummy = CInt(AValue)
IsInteger = True

Exit Function

LocalError:
IsInteger = False

End Function




mfG
--> stefan <--
 
Top