PureBoard

Verfasst: **28.11.2004 16:04**

Hallo

penConsole()
Day = DayOfWeek(Datum)
Print(Str(Ergebnis))
If Day = 0
tag$ = "Sonntag"
ElseIf Day = 1
tag$ = "Montag"
ElseIf Day = 2
tag$ = "Dienstag"
ElseIf Day = 3
tag$ = "Mittwoch"
ElseIf Day = 4
tag$ = "Donnerstag"
ElseIf Day = 5
tag$ = "Freitag"
ElseIf Day = 6
tag$ = "Samstag"
EndIf

Print(tag$)
Input()
CloseConsole()

Ich kann das Sytemdatum verstellen, es git immer denselben Wert retour. Wer kann mir helfen

Gruss Michael

Verfasst: **28.11.2004 16:10**

Ich würde ja mal denken, dass es einfach etwas ungünstig ist, das Datum
bei 0 zu belassen. Ändere doch mal Datum in Date() um. Und wenn du
schon dabei bist, die Variable, die du haben willst, heißt Day und nicht
Ergebnis, Ergebnis zu debuggen hilft also nichts.

Verfasst: **28.11.2004 16:29**

So geht das bei mir:

Code: Alles auswählen

OpenConsole()
Day = DayOfWeek(Date())
Print(Str(Day))
If Day = 0
  tag$ = "Sonntag"
ElseIf Day = 1
  tag$ = "Montag"
ElseIf Day = 2
  tag$ = "Dienstag"
ElseIf Day = 3
  tag$ = "Mittwoch"
ElseIf Day = 4
  tag$ = "Donnerstag"
ElseIf Day = 5
  tag$ = "Freitag"
ElseIf Day = 6
  tag$ = "Samstag"
EndIf

Print(tag$)
Input()
CloseConsole()

Verfasst: **28.11.2004 16:42**

Ihr habt ja so recht, manchmal sieht man einfach den Wald
vot lauter Bäumen nicht mehr
Alles logisch
Trotzdem Danke

Michael

Verfasst: **28.11.2004 16:52**

ich würde die ganzen if abfragen weglassen und per Day den wochentag aus einem array oder stringfield lesen.

Code: Alles auswählen

Wochentage$ = "Sonntag|Montag|Dienstag|Mittwoch|Donnerstag|Freitag" 
OpenConsole()  
Print(Str(DayOfWeek(Date()))+StringField(Wochentage$,DayOfWeek(Date())+1,"|"))
Input() 
CloseConsole()

PureBoard

DayOfWeek() Problem

DayOfWeek() Problem

Jaja