Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB7
Expertise: beginner
Jul 14, 2003



Building the Right Environment to Support AI, Machine Learning and Deep Learning

IsNumeric - Check whether an object is storing a numeric value

' Check whether an object is storing a numeric value
' Examples:
'    Dim s As String = "hello"
'    Dim d As Double = 2.4
'    Dim i As Integer = 5
'    Debug.WriteLine(IsNumeric(d))   ' => True
'    Debug.WriteLine(IsNumeric(s))   ' => False
'    Debug.WriteLine(IsNumeric(i))   ' => True

Function IsNumeric(ByVal val As Object) As Boolean
    Return TypeOf val Is System.Decimal OrElse TypeOf val Is System.Single _
        OrElse TypeOf val Is System.Double OrElse TypeOf val Is System.Int16 _
        OrElse TypeOf val Is System.Int32 OrElse TypeOf val Is System.Int64
End Function
Marco Bellinaso
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date