| |
| |
|
Dietmar
Horn | make I here something wrong, or rechnet XProfan X2 wrong?
Var zeitpunkt$ = "18.12.1955"
Var d! = dt("SetDate",zeitpunkt$)
Var wtag& = dt("getDoW",d!)
Declare week-day$
Case wtag& = 1 : week-day$ = "Montag"
Case wtag& = 2 : week-day$ = "Dienstag"
Case wtag& = 3 : week-day$ = "Mittwoch"
Case wtag& = 4 : week-day$ = "Donnerstag"
Case wtag& = 5 : week-day$ = "Freitag"
Case wtag& = 6 : week-day$ = "Samstag"
Case wtag& = 7 : week-day$ = "Sonntag"
cls
Print "Wochentag the Zeitpunktes: " + st$(wtag&)' 1
Print "Wochentag the Zeitpunktes: " + week-day$' monday (instead of sunday)
Waitinput
i know very, that I one "Sonntagskind" be - still XProfan X2 means, I would one "Montagskind". 
Greeting
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: [...] | 02/27/11 ▲ |
|
| |
|
|
 | by me and my birthday comes thereafter too monday instead of sunday out  -
vlt. begins The getDoW-week with sunday:
Var zeitpunkt$ = date$(0)
Var d! = dt("SetDate",zeitpunkt$)
Var wtag& = dt("getDoW",d!)
Declare week-day$
Case wtag& = 1 : week-day$ = "Sonntag"
Case wtag& = 2 : week-day$ = "Montag"
Case wtag& = 3 : week-day$ = "Dienstag"
Case wtag& = 4 : week-day$ = "Mittwoch"
Case wtag& = 5 : week-day$ = "Donnerstag"
Case wtag& = 6 : week-day$ = "Freitag"
Case wtag& = 7 : week-day$ = "Samstag"
cls
Print "Wochentag the Zeitpunktes: " + st$(wtag&)' 1
Print "Wochentag the Zeitpunktes: " + week-day$' monday (instead of sunday)
Waitinput
|
|
| |
| |
| |
|
|
RGH | Arrrghhh .... the happens, if one not even koirrekt from the Delphi-Help Quote can:
"Beschreibung
DayOfWeek gives whom week-day to that angegebenen date as Integer between 1 and 7 back. thereby is sunday day 1 and saturday day 7."
i'll The Help adjust ... or I could instead of the Delphifunktion DayOfWeek The DelphiFunktion DayOfTheWeek use, then is 1 objectively the monday. I faith almost, the would rather, because of ISO-8601-rule.
Greeting
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 | 02/27/11 ▲ |
|
| |
|
(456)
Deutsch
English
Français
Español
Italia