| |
| |
|
| - Page 1 - |
|
Erasmus.Herold | Hallöchen ...
i want the windows System-Date with XProfan differently settle.
(z.B. on the 20.12.2019)
try me over: dt("setDateTime", y, m, d, h, n, s, ms)
have but none success.
Who an example for me?
Greeting and Thanks
Erasmus |
|
| |
| |
| |
|
 |
« this Posting watts as Solution marked. » |
|
Ernst | 
' example reading and settle System-Date and System-Time. for Profan 6.6.
' Version 2.0 15.5.2010. the Program can spare using go, for
' Schäden can no Liability übernommen go.
' Author: 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 - structure. uses becomes Tim#
' WORD Tim#,0 year
' WORD Tim#,2 month
' WORD Tim#,4 week-day 0= sunday, 1= monday ... 6= saturday
' WORD Tim#,6 day
' WORD Tim#,8 hour
' WORD Tim#,10 Minute
' WORD Tim#,12 second
' 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 day
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);":";@stature$("00",@Word(Tim#,10),);":";@stature$("00",@Word(Tim#,12),);" Uhr"
' if date/Time staid go should: values in Tim# properly settle and
' @Setze_Datum(Tim#)
' perform
Waitinput
Dispose Tim#
End
|
|
| |
| |
| |
|
|
|
Erasmus.Herold | too this chapter Help has me not weitergebracht.
29.1.6 - date/Uhrzeit detect and settle |
|
| |
| |
| |
|
|
Ernst |
' example reading and settle System-Date and System-Time. for Profan 6.6.
' Version 2.0 15.5.2010. the Program can spare using go, for
' Schäden can no Liability übernommen go.
' Author: 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 - structure. uses becomes Tim#
' WORD Tim#,0 year
' WORD Tim#,2 month
' WORD Tim#,4 week-day 0= sunday, 1= monday ... 6= saturday
' WORD Tim#,6 day
' WORD Tim#,8 hour
' WORD Tim#,10 Minute
' WORD Tim#,12 second
' 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 day
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);":";@stature$("00",@Word(Tim#,10),);":";@stature$("00",@Word(Tim#,12),);" Uhr"
' if date/Time staid go should: values in Tim# properly settle and
' @Setze_Datum(Tim#)
' perform
Waitinput
Dispose Tim#
End
|
|
| |
| |
| |
|
(931)
Deutsch
English
Français
Español
Italia