ChapterDATE$ EXAMPLE

10 CLEAR SCREEN

20 PRINT "The date today is ";DATE$(TIMEDATE)

30 PRINT "The number of seconds from 4713 B.C. is",FNJd(DATE$(TIMEDATE))

40 END

50 DEF FNJd(A$)

60 RETURN (DATE(A$) DIV 86400)-1

70 FNEND