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