DATE Example
10 CLEAR SCREEN
20 PRINT DATE$(TIMEDATE)
30 PRINT "The number in seconds from 4713 B.C. is",FNJd(DATE$(TIMEDATE))
40 END
50 DEF FNJd(A$)
60 RETURN (DATE(A$) DIV 86400)-1
70 FNEND