Posted by Bob A on October 22, 2013 at 12:52:36:
Length 8 & Local DateIn$
Length 7.0 & Local DateIn
CLEAR LOCAL & ESCAPETO VALID.EXIT & ERRORTO VALID.EXIT
DateIn$ = "09/31/13"
DateIn = DATE2NUM(DateIn$,0)
If DateIn EQ -1 THEN
MSGBOX "Invalid Date"
ELSE
MSGBOX "Date OK"
ENDIF
Valid.Exit: STOP
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.