' WEEKDAY$(3.0) Form Day of a Week Abbreviated Name 09/30/1992-02/03/2010 ' ------------------------------------------------------------------------------ #INCLUDE "WEEKDAY" FUNCTION PBMAIN PRINT "WEEKDAY$(3.0) Form Day of a Week Abbreviated Name ";DATE$; PRINT " ";LEFT$(TIME$, 5) PRINT STRING$(69,"-") PRINT PRINT "WEEKDAY$('' )='"; WEEKDAY$(""); "' - Today "; DATE$ PRINT "WEEKDAY$('*1-01-1996')='"; _ WEEKDAY$("*1-01-1996"); "' - Should be '***' (error)" PRINT "WEEKDAY$('12-31-1996')='"; _ WEEKDAY$("12-31-1996"); "' - Should be 'Tue'" PRINT "WEEKDAY$('01-01-1997')='"; _ WEEKDAY$("01-01-1997"); "' - Should be 'Wed'" PRINT "WEEKDAY$('12-31-1997')='"; _ WEEKDAY$("12-31-1997"); "' - Should be 'Wed'" PRINT "WEEKDAY$('01-01-1998')='"; _ WEEKDAY$("01-01-1998"); "' - Should be 'Thu'" PRINT "WEEKDAY$('12-31-1998')='"; _ WEEKDAY$("12-31-1998"); "' - Should be 'Thu'" PRINT "WEEKDAY$('01-01-1999')='"; _ WEEKDAY$("01-01-1999"); "' - Should be 'Fri'" PRINT "WEEKDAY$('12-31-1999')='"; _ WEEKDAY$("12-31-1999"); "' - Should be 'Fri'" PRINT "WEEKDAY$('01-01-2000')='"; _ WEEKDAY$("01-01-2000"); "' - Should be 'Sat'" PRINT "WEEKDAY$('12-31-2000')='"; _ WEEKDAY$("12-31-2000"); "' - Should be 'Sun'" PRINT "WEEKDAY$('01-01-2001')='"; _ WEEKDAY$("01-01-2001"); "' - Should be 'Mon'" PRINT "WEEKDAY$('12-31-2001')='"; _ WEEKDAY$("12-31-2001"); "' - Should be 'Mon'" PRINT "WEEKDAY$('01-01-2002')='"; _ WEEKDAY$("01-01-2002"); "' - Should be 'Tue'" PRINT "WEEKDAY$('12-31-2002')='"; _ WEEKDAY$("12-31-2002"); "' - Should be 'Tue'" PRINT "WEEKDAY$('01-01-2003')='"; _ WEEKDAY$("01-01-2003"); "' - Should be 'Wed'" PRINT "WEEKDAY$('12-31-2003')='"; _ WEEKDAY$("12-31-2003"); "' - Should be 'Wed'" PRINT "WEEKDAY$('01-01-2004')='"; _ WEEKDAY$("01-01-2004"); "' - Should be 'Thu'" PRINT "WEEKDAY$('12-31-04' )='"; _ WEEKDAY$("12-31-04" ); "' - Should be 'Fri'" END FUNCTION