| |
| |
|
| - Seite 1 - |
|
Erasmus.Herold | Hallöchen ...
Ich möchte das Windows Systemdatum mit XProfan anders setzen.
(z.B. auf den 20.12.2019)
Versuche mich über: dt("setDateTime", y, m, d, h, n, s, ms)
Habe aber keinen Erfolg.
Wer hat ein Beispiel für mich?
Gruß und Dank
Erasmus |
|
| |
| |
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
Ernst | 
' Beispiel Lesen und setzen Systemdatum und Systemzeit. Für Profan 6.6.
' Version 2.0 15.5.2010. Das Programm kann frei benutzt werden, für
' Schäden kann keine Haftung übernommen werden.
' Autor: Gerhard Putschalka
' email: gerhard-putschalka@gmx.at
' homepage: https://www.gerhard-putschalka.xprofan.com/index.htm
Declare Tim#,WoTag$[7]
Def Lese_Datum(1) ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' 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)
Print @Word(Tim#,8);":";@Format$("00",@Word(Tim#,10),);":";@Format$("00",@Word(Tim#,12),);" Uhr"
' Falls Datum/Zeit gesetzt werden soll: Werte in Tim# entsprechend setzen und
' @Setze_Datum(Tim#)
' ausführen
Waitinput
Dispose Tim#
End
|
|
| |
| |
| |
|
|
|
Erasmus.Herold | Auch dieses Kapitel der Hilfe hat mich nicht weitergebracht.
29.1.6 - Datum/Uhrzeit ermitteln und setzen |
|
| |
| |
| |
|
|
Ernst |
' Beispiel Lesen und setzen Systemdatum und Systemzeit. Für Profan 6.6.
' Version 2.0 15.5.2010. Das Programm kann frei benutzt werden, für
' Schäden kann keine Haftung übernommen werden.
' Autor: Gerhard Putschalka
' email: gerhard-putschalka@gmx.at
' homepage: https://www.gerhard-putschalka.xprofan.com/index.htm
Declare Tim#,WoTag$[7]
Def Lese_Datum(1) ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' 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)
Print @Word(Tim#,8);":";@Format$("00",@Word(Tim#,10),);":";@Format$("00",@Word(Tim#,12),);" Uhr"
' Falls Datum/Zeit gesetzt werden soll: Werte in Tim# entsprechend setzen und
' @Setze_Datum(Tim#)
' ausführen
Waitinput
Dispose Tim#
End
|
|
| |
| |
| |
|
(312)
Deutsch
English
Français
Español
Italia