' tb-screen: 80x25
' tb-tz: +02:00
' Datum und Zeit (Spec konsolen-basisbibliothek): Serienwert-Zaehlweise,
' Rueckumwandlung, WEEKDAY = 1 fuer Sonntag, Textformen und die
' programmeigene Uhr ueber DATE$ =/TIME$ =.
d# = DATESERIAL(1992, 3, 15)
PRINT YEAR(d#); MONTH(d#); DAY(d#); WEEKDAY(d#)
PRINT DATESERIAL(1900, 1, 1)
t# = TIMESERIAL(13, 45, 30)
PRINT HOUR(t#); MINUTE(t#); SECOND(t#)
PRINT DATEVALUE("03-15-1992") = d#; TIMEVALUE("13:45:30") = t#
DATE$ = "01-02-1993"
TIME$ = "10:20:30"
PRINT DATE$; " "; TIME$
PRINT YEAR(NOW); MONTH(NOW); DAY(NOW)
ON ERROR GOTO Fehler
x# = DATESERIAL(1992, 13, 1)
Weiter:
x# = TIMEVALUE("25:00")
Ende:
ON ERROR GOTO 0
PRINT "fertig"
END
Fehler:
PRINT "Fehler"; ERR
n% = n% + 1
IF n% = 1 THEN RESUME Weiter
RESUME Ende