' VALDGRE%(0.0) Check Date for Valid Gregorian Value 04/28/1997-02/02/2010 ' ------------------------------------------------------------------------------ #INCLUDE "VALDGRE" FUNCTION PBMAIN PRINT "VALDGRE%(0.0) Check Date for Valid Gregorian Value ";DATE$; PRINT " ";LEFT$(TIME$,5) PRINT STRING$(70,"-") PRINT PRINT "VALDGRE%('' )="; VALDGRE%(""); "' - Today "; DATE$ PRINT "VALDGRE%('11-11-1' )="; _ VALDGRE%("11-11-1" ) PRINT "VALDGRE%('11-11-111' )="; _ VALDGRE%("11-11-111" ) PRINT "VALDGRE%('11-11-11111')="; _ VALDGRE%("11-11-11111") PRINT "VALDGRE%('*1-11-11' )="; _ VALDGRE%("*1-11-11" ) PRINT "VALDGRE%('11-*1-11' )="; _ VALDGRE%("11-*1-11" ) PRINT "VALDGRE%('11-11-*1' )="; _ VALDGRE%("11-11-*1" ) PRINT "VALDGRE%('00-01-00' )="; _ VALDGRE%("00-01-00" ) PRINT "VALDGRE%('13-01-00' )="; _ VALDGRE%("13-01-00" ) PRINT "VALDGRE%('01-00-00' )="; _ VALDGRE%("01-00-00" ) PRINT "VALDGRE%('01-32-00' )="; _ VALDGRE%("01-32-00" ) PRINT "VALDGRE%('02-29-1900' )="; _ VALDGRE%("02-29-1900" ) PRINT "VALDGRE%('02-30-2000' )="; _ VALDGRE%("02-30-2000" ) PRINT "VALDGRE%('02-27-1900' )="; _ VALDGRE%("02-27-1900" ) PRINT "VALDGRE%('02-28-2000' )="; _ VALDGRE%("02-28-2000" ) PRINT "VALDGRE%('01-01-2001' )="; _ VALDGRE%("01-01-2001" ) PRINT "VALDGRE%('06-15-2002' )="; _ VALDGRE%("06-15-2002" ) PRINT "VALDGRE%('12-15-9999' )="; _ VALDGRE%("12-15-9999" ) END FUNCTION