Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > IsDate Function > Example - IsDate Function
Current Help File: PC-DMIS Basic (View Core Help)
Example - IsDate Function
Sub Main
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