IsDate Function

IsDate( variant )

Returns a value that indicates if a variant parameter can be converted to a date.

Example:

Sub Main

Dim x As String

Dim MArray As Integer, MCheck

MArray = 345

x = "January 1, 1959"

MCheck = IsDate(MArray)

MChekk = IsDate(x)

MArray1 = CStr(MArray)

MCheck1 = CStr(MCheck)

Print MArray1 & " is a date " & Chr(10) & MCheck

Print x & " is a date" & Chr(10) & MChekk

End Sub