Example - IsDate Function

1. Sub Main

   1. Dim x As String

      Dim MArray As Integer, MCheck

      MArray = 345

      x = "January 1, 1987"

      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