Re: Datum und Uhrzeit setzen


[ Nachträge ] [ Nachtrag schicken ] [ Profan² News Board ]

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



Nachträge:



Nachtrag schreiben

Name:
E-Mail:

Subject:

Nachricht:

Link Adresse:
Link Titel:
Bild Adresse:


[ Nachtrag ] [ Nachtrag schreiben ] [ Profan² News Board ]