| |
| |
|
| - Página 1 - |
|
Erasmus.Herold | Hallöchen ...
Yo möchte el Windows Systemdatum con XProfan anders conjunto.
(z.B. en el 20.12.2019)
Versuche Notifiqueme de: dt("setDateTime", y, m, d, h, n, s, ms)
Posesiones aber no Erfolg.
Wer ha una Ejemplo para mich?
Saludo y Dank
Erasmus |
|
| |
| |
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Ernst | 
' Ejemplo Lesen y conjunto Systemdatum y Systemzeit. Für Profano 6.6.
' Versión 2.0 15.5.2010. Das Programa kann frei benutzt voluntad, para
' Schäden kann no Haftung übernommen voluntad.
' Autor: Gerhard Putschalka
' email: gerhard-putschalka@gmx.at
' homepage: https://www.gerhard-putschalka.XProfan.com/index.htm
Declarar Tim#,WoTag$[7]
Def Lese_Datum(1) ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' SYSTEMTIME - Struktur. Verwendet se 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
' inicializar 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
Imprimir Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
' drucke Uhrzeit
'Imprimir @Word(Tim#,8);":";@Word(Tim#,10);":";@Word(Tim#,12)
Imprimir @Word(Tim#,8);":";@Formato$("00",@Word(Tim#,10),);":";@Formato$("00",@Word(Tim#,12),);" Uhr"
' Falls Datum/Tiempo gesetzt voluntad se: Werte en Tim# entsprechend conjunto y
' @Setze_Datum(Tim#)
' ausführen
Waitinput
Disponer Tim#
End
|
|
| |
| |
| |
|
|
|
Erasmus.Herold | Auch dieses Kapitel el Ayuda ha mich no weitergebracht.
29.1.6 - Datum/Uhrzeit ermitteln y conjunto |
|
| |
| |
| |
|
|
Ernst |
' Ejemplo Lesen y conjunto Systemdatum y Systemzeit. Für Profano 6.6.
' Versión 2.0 15.5.2010. Das Programa kann frei benutzt voluntad, para
' Schäden kann no Haftung übernommen voluntad.
' Autor: Gerhard Putschalka
' email: gerhard-putschalka@gmx.at
' homepage: https://www.gerhard-putschalka.XProfan.com/index.htm
Declarar Tim#,WoTag$[7]
Def Lese_Datum(1) ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' SYSTEMTIME - Struktur. Verwendet se 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
' inicializar 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
Imprimir Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
' drucke Uhrzeit
'Imprimir @Word(Tim#,8);":";@Word(Tim#,10);":";@Word(Tim#,12)
Imprimir @Word(Tim#,8);":";@Formato$("00",@Word(Tim#,10),);":";@Formato$("00",@Word(Tim#,12),);" Uhr"
' Falls Datum/Tiempo gesetzt voluntad se: Werte en Tim# entsprechend conjunto y
' @Setze_Datum(Tim#)
' ausführen
Waitinput
Disponer Tim#
End
|
|
| |
| |
| |
|
(1.105)
Deutsch
English
Français
Español
Italia