To properly display this page you need a browser with JavaScript support.
HTBasic Help
×
Menu
Index
Search
Search
HTBasic Example Programs
DATE$ EXAMPLE
Previous page
Next page
Print version
(c) TransEra Corp, 2021
To properly display this page you need a browser with JavaScript support.
DATE$ 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