XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Systemdatum und Systemzeit lesen und setzen
Beispiel Lesen und setzen Systemdatum und Systemzeit. Für Profan 6.6.
Version 1.0  13.6.2004.      Das Programm kann frei benutzt werden, für
Schäden kann keine Haftung übernommen werden.
Autor: Gerhard Putschalka
email: g.putschalka@web.de
homepage: http://members.telering.at/g.putschalka/index.html
Declare Tim#,WoTag$[7]
Def Lese_Datum(1)  ! Kernel32, GetSystemTime
Def Setze_Datum(1) ! Kernel32, SetSystemTime
SYSTEMTIME - Struktur. Verwendet wird Tim#
WORD Tim#,0   Jahr
WORD Tim#,2  Monat
WORD Tim#,4  Wochentag 0= Sonntag, 1= Montag ... 6= Samstag
WORD Tim#,6  Tag
WORD Tim#,8  Stunde
WORD Tim#,10 Minute
WORD Tim#,12 Sekunde
WORD Tim#,14 Millisekunde
initialisieren Wochentagsarray
WoTag$[0] = Sonntag
WoTag$[1] = Montag
WoTag$[2] = Dienstag
WoTag$[3] = Mittwoch
WoTag$[4] = Donnerstag
WoTag$[5] = Freitag
WoTag$[6] = Samstag
Dim Tim#,16
@Lese_Datum(Tim#)
drucke Tag
Print Wotag$[@Word(Tim#,4)],@Word(Tim#,6);.;@Word(Tim#,2);.;@Word(Tim#,0)
drucke Uhrzeit
Print @Word(Tim#,8);:;@Word(Tim#,10);:;@Word(Tim#,12)
Falls Datum/Zeit gesetzt werden soll: Werte in Tim# entsprechend setzen und
@Setze_Datum(Tim#)
ausführen
Waitinput
Dispose Tim#
End