| |
| |
|
| - page 1 - |
|
Erasmus.Herold | Hallöchen ...
je voudrais cela Windows Systemdatum avec XProfan anders mettons.
(z.B. sur den 20.12.2019)
Versuche mich sur: dt("setDateTime", y, m, d, h, n, s, ms)
Habe mais keinen Erfolg.
qui hat un Beispiel pour mich?
Salut et Dank
Erasmus |
|
| |
| |
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Ernst | 
' Beispiel Lesen et mettons Systemdatum et Systemzeit. Pour Profan 6.6.
' Version 2.0 15.5.2010. cela Programme peux libre benutzt volonté, pour
' Schäden peux aucun la responsabilité übernommen volonté.
' Autor: Gerhard Putschalka
' email: gerhard-putschalka@gmx.at
' homepage: https://www.gerhard-putschalka.XProfan.com/index.htm
Déclarer Tim#,WoTag$[7]
Def Lese_Datum(1) ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' SYSTEMTIME - Struktur. Verwendet wird Tim#
' WORD Tim#,0 l'an
' WORD Tim#,2 mois
' WORD Tim#,4 Wochentag 0= dimanche, 1= lundi ... 6= samedi
' WORD Tim#,6 journée
' WORD Tim#,8 heure
' WORD Tim#,10 minute
' WORD Tim#,12 seconde
' 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"
Faible Tim#,16
@Lese_Datum(Tim#)
' drucke journée
Imprimer Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
' drucke l'heure
'Imprimer @Word(Tim#,8);":";@Word(Tim#,10);":";@Word(Tim#,12)
Imprimer @Word(Tim#,8);»;@Format $("00",@Word(Tim#,10),);»;@Format $("00",@Word(Tim#,12),);" Uhr"
' si date/Zeit gesetzt volonté soll: Werte dans Tim# entsprechend mettons et
' @Setze_Datum(Tim#)
' effectuer
Waitinput
Dispose Tim#
Fin
|
|
| |
| |
| |
|
|
|
Erasmus.Herold | aussi cet le chapitre qui Aider hat mich pas weitergebracht.
29.1.6 - date/l'heure ermitteln et mettons |
|
| |
| |
| |
|
|
Ernst |
' Beispiel Lesen et mettons Systemdatum et Systemzeit. Pour Profan 6.6.
' Version 2.0 15.5.2010. cela Programme peux libre benutzt volonté, pour
' Schäden peux aucun la responsabilité übernommen volonté.
' Autor: Gerhard Putschalka
' email: gerhard-putschalka@gmx.at
' homepage: https://www.gerhard-putschalka.XProfan.com/index.htm
Déclarer Tim#,WoTag$[7]
Def Lese_Datum(1) ! "Kernel32", "GetLocalTime"
Def Setze_Datum(1) ! "Kernel32", "SetLocalTime"
' SYSTEMTIME - Struktur. Verwendet wird Tim#
' WORD Tim#,0 l'an
' WORD Tim#,2 mois
' WORD Tim#,4 Wochentag 0= dimanche, 1= lundi ... 6= samedi
' WORD Tim#,6 journée
' WORD Tim#,8 heure
' WORD Tim#,10 minute
' WORD Tim#,12 seconde
' 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"
Faible Tim#,16
@Lese_Datum(Tim#)
' drucke journée
Imprimer Wotag$[@Word(Tim#,4)],@Word(Tim#,6);".";@Word(Tim#,2);".";@Word(Tim#,0)
' drucke l'heure
'Imprimer @Word(Tim#,8);":";@Word(Tim#,10);":";@Word(Tim#,12)
Imprimer @Word(Tim#,8);»;@Format $("00",@Word(Tim#,10),);»;@Format $("00",@Word(Tim#,12),);" Uhr"
' si date/Zeit gesetzt volonté soll: Werte dans Tim# entsprechend mettons et
' @Setze_Datum(Tim#)
' effectuer
Waitinput
Dispose Tim#
Fin
|
|
| |
| |
| |
|
(961)
Deutsch
English
Français
Español
Italia