| |
| |
|
Dietmar
Horn | Mache Yo hier algo falso, oder rechnet XProfan X2 verkehrt?
Var zeitpunkt$ = "18.12.1955"
Var d! = dt("SetDate",zeitpunkt$)
Var wtag& = dt("getDoW",d!)
Declarar 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
Imprimir "Wochentag des Zeitpunktes: " + str$(wtag&)' 1
Imprimir "Wochentag des Zeitpunktes: " + wochentag$' Montag (en lugar de Sonntag)
Waitinput
Yo weiß genau, Yo una "Sonntagskind" bin - doch XProfan X2 meint, Yo wäre una "Montagskind". 
Saludo
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 ▲ |
|
| |
|
|
 | En me y mi Geburtstag kommt danach auch Montag en lugar de Sonntag heraus  -
vlt. beginnt el getDoW-Semana con Sonntag:
Var zeitpunkt$ = date$(0)
Var d! = dt("SetDate",zeitpunkt$)
Var wtag& = dt("getDoW",d!)
Declarar 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
Imprimir "Wochentag des Zeitpunktes: " + str$(wtag&)' 1
Imprimir "Wochentag des Zeitpunktes: " + wochentag$' Montag (en lugar de Sonntag)
Waitinput
|
|
| |
| |
| |
|
|
RGH | Arrrghhh .... el passiert, si uno no una vez koirrekt de el Delphi-Ayuda Cita kann:
"Beschreibung
DayOfWeek son el Wochentag para angegebenen Datum como Integer zwischen 1 y 7 zurück. Dabei es Sonntag Tag 1 y Samstag Tag 7."
Yo voluntad el Ayuda adaptar ... oder Yo podría en lugar de el Delphifunktion DayOfWeek el DelphiFunktion DayOfTheWeek uso, entonces 1 tatsächlich el Montag. Yo glaube fast, el wäre mejor, wegen ISO-8601-Norm.
Saludo
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 ▲ |
|
| |
|
(456)
Deutsch
English
Français
Español
Italia