11 lines
260 B
QBasic
11 lines
260 B
QBasic
' tb-screen: 80x25
|
|
' tb-tz: unknown
|
|
' Expliziter UTC-Rueckfall bleibt auch mit programmeigenem Versatz sichtbar.
|
|
PRINT TIMEZONEKNOWN
|
|
DATE$ = "03-15-1992"
|
|
TIME$ = "13:45:30"
|
|
PRINT TIMEZONEKNOWN
|
|
PRINT DATE$; " "; TIME$
|
|
PRINT YEAR(NOW); HOUR(NOW); INT(TIMER)
|
|
END
|