| |
| |
|
Dietmar
Horn | Mache ich hier etwas falsch, oder rechnet XProfan X2 verkehrt?
Var zeitpunkt$ = "18.12.1955"
Var d! = dt("SetDate",zeitpunkt$)
Var wtag& = dt("getDoW",d!)
Declare wochentag$
Case wtag& = 1 : wochentag$ = "Montag"
Case wtag& = 2 : wochentag$ = "Dienstag"
Case wtag& = 3 : wochentag$ = "Mittwoch"
Case wtag& = 4 : wochentag$ = "Donnerstag"
Case wtag& = 5 : wochentag$ = "Freitag"
Case wtag& = 6 : wochentag$ = "Samstag"
Case wtag& = 7 : wochentag$ = "Sonntag"
cls
Print "Wochentag des Zeitpunktes: " + str$(wtag&)' 1
Print "Wochentag des Zeitpunktes: " + wochentag$' Montag (statt Sonntag)
Waitinput
Ich weiß genau, daß ich ein "Sonntagskind" bin - doch XProfan X2 meint, ich wäre ein "Montagskind". 
Gruß
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 27.02.2011 ▲ |
|
| |
|
|
 | Bei mir und meinem Geburtstag kommt danach auch Montag statt Sonntag heraus  -
vlt. beginnt die getDoW-Woche mit Sonntag:
Var zeitpunkt$ = date$(0)
Var d! = dt("SetDate",zeitpunkt$)
Var wtag& = dt("getDoW",d!)
Declare wochentag$
Case wtag& = 1 : wochentag$ = "Sonntag"
Case wtag& = 2 : wochentag$ = "Montag"
Case wtag& = 3 : wochentag$ = "Dienstag"
Case wtag& = 4 : wochentag$ = "Mittwoch"
Case wtag& = 5 : wochentag$ = "Donnerstag"
Case wtag& = 6 : wochentag$ = "Freitag"
Case wtag& = 7 : wochentag$ = "Samstag"
cls
Print "Wochentag des Zeitpunktes: " + str$(wtag&)' 1
Print "Wochentag des Zeitpunktes: " + wochentag$' Montag (statt Sonntag)
Waitinput
|
|
| |
| |
| |
|
|
RGH | Arrrghhh .... das passiert, wenn man nicht einmal koirrekt aus der Delphi-Hilfe zitieren kann:
"Beschreibung
DayOfWeek gibt den Wochentag zum angegebenen Datum als Integer zwischen 1 und 7 zurück. Dabei ist Sonntag Tag 1 und Samstag Tag 7."
Ich werde die Hilfe anpassen ... oder ich könnte statt der Delphifunktion DayOfWeek die DelphiFunktion DayOfTheWeek verwenden, dann ist 1 tatsächlich der Montag. Ich glaube fast, das wäre besser, wegen ISO-8601-Norm.
Gruß
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 27.02.2011 ▲ |
|
| |
|
(266)
Deutsch
English
Français
Español
Italia