Von Michael Duttlinger am 02 Januar, 1998 um 20:38:00:
Antwort auf: Datum und Uhrzeit setzen von Ronald Baumann am 02 Januar, 1998 um 16:15:42:
: 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