| |
| |
|
Dietmar
Horn | fais je ici quelque chose faux, ou bien rechnet XProfan X2 verkehrt?
Var la date$ = "18.12.1955"
Var d! = dt("SetDate",la date$)
Var wtag& = dt("getDoW",d!)
Déclarer wochentag$
Cas wtag& = 1 : wochentag$ = "Montag"
Cas wtag& = 2 : wochentag$ = "Dienstag"
Cas wtag& = 3 : wochentag$ = "Mittwoch"
Cas wtag& = 4 : wochentag$ = "Donnerstag"
Cas wtag& = 5 : wochentag$ = "Freitag"
Cas wtag& = 6 : wochentag$ = "Samstag"
Cas wtag& = 7 : wochentag$ = "Sonntag"
cls
Imprimer "Wochentag des Zeitpunktes: " + str$(wtag&)' 1
Imprimer "Wochentag des Zeitpunktes: " + wochentag$' lundi (statt dimanche)
Waitinput
je sais oui c'est ca, qui je un "Sonntagskind" suis - doch XProfan X2 meint, je wäre un "Montagskind". 
Salut
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 ▲ |
|
| |
|
|
 | chez mir et meinem anniversaire venez après aussi lundi statt dimanche heraus  -
vlt. beginnt qui getDoW-semaine avec dimanche:
Var la date$ = date$(0)
Var d! = dt("SetDate",la date$)
Var wtag& = dt("getDoW",d!)
Déclarer wochentag$
Cas wtag& = 1 : wochentag$ = "Sonntag"
Cas wtag& = 2 : wochentag$ = "Montag"
Cas wtag& = 3 : wochentag$ = "Dienstag"
Cas wtag& = 4 : wochentag$ = "Mittwoch"
Cas wtag& = 5 : wochentag$ = "Donnerstag"
Cas wtag& = 6 : wochentag$ = "Freitag"
Cas wtag& = 7 : wochentag$ = "Samstag"
cls
Imprimer "Wochentag des Zeitpunktes: " + str$(wtag&)' 1
Imprimer "Wochentag des Zeitpunktes: " + wochentag$' lundi (statt dimanche)
Waitinput
|
|
| |
| |
| |
|
|
RGH | Arrrghhh .... cela passiert, si on pas einmal koirrekt aus qui Delphi-Aider Citation peux:
"Beschreibung
DayOfWeek gibt den Wochentag zum angegebenen date comme Integer entre 1 et 7 zurück. Dabei ist dimanche journée 1 et samedi journée 7."
je werde qui Aider anpassen ... ou bien je pourrait statt qui Delphifunktion DayOfWeek qui DelphiFunktion DayOfTheWeek verwenden, ensuite ist 1 réellement qui lundi. je crois presque, cela wäre besser, à cause de ISO-8601-Norm.
Salut
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 ▲ |
|
| |
|
(903)
Deutsch
English
Français
Español
Italia