Von Roland G. Hülsmann am 02 Januar, 1998 um 21:40:19:
Antwort auf: Re: Datum und Uhrzeit setzen von Michael Duttlinger am 02 Januar, 1998 um 20:38:00:
:
: : Wie kann ich das Systemdatum und die Systemzeit
: : mit Profan verändern?
: : Vielen Dank an alle, die mir antworten.
: 'SYSTEMZEIT_STRUKTUR
: ' WORD wYear;
: ' WORD wMonth;
: ' WORD wDayOfWeek;
: ' WORD wDay;
: ' WORD wHour;
: ' WORD wMinute;
: ' WORD wSecond;
: ' WORD wMilliseconds;
: 'wDayOfWeek
: '
: 'Sonntag = 0, Montag = 1, und so weiter.
: 'Das Programm stellt die aktuelle Uhrzeit um eine Stunde vor
: Declare systemzeit#, Stunde&
: Dim systemzeit#,16
: Def GetLocalTime(1) !"KERNEL32","GetLocalTime"
: Def SetLocalTime(1) !"KERNEL32","SetLocalTime"
: Cls
: GetLocalTime(systemzeit#)
: Let Stunde& = @Word(systemzeit#,8)
: Print "Jahr :",@Word(systemzeit#,0)
: Print "Monat :",@Word(systemzeit#,2)
: Print "Tag der Woche:",@Word(systemzeit#,4)
: Print "Tag :",@Word(systemzeit#,6)
: Print "Stunde :",@Word(systemzeit#,8)
: Print "Minute :",@Word(systemzeit#,10)
: Print "Sekunde :",@Word(systemzeit#,12)
: Print "Millisekunde :",@Word(systemzeit#,14)
: Print "Stelle die Uhrzeit 1 Stunde vor, weiter mit Taste...."
: WaitInput
: Let Stunde& = @Add(Stunde&,1)
: Word systemzeit#,8=Stunde&
: SetLocalTime(systemzeit#)
: End
Hallo,
damits auch mit dem BIOS richtig klappt, sollte man lieber
folgende Funktionen verwenden:
def getsystemtime(1) !"kernel32","GetSystemTime"
def setsystemtime(1) !"kernel32","SetSystemTime"
Die Datenstruktur ist die Gleiche wie bei den LocalTime-
Funktionen. Aber hier bleibt die Zeitänderung auch
nach dem Booten des PC bestehen, bei LocalTime gilt
die Änderung nur während der aktuellen Sitzung ...
und einmige Programme, die die Zeit abfragen, fragen
die BIOS-Zeit (Systemzeit) ab ... ;-)
Roland