Datumberechneung funkioniert nur für einen Wert

[Svenkan]

Ich habe folgenden Code:

Delphi-Quellcode:

dnr:=DayOfWeek(Date); 
  if dnr=0 then begin 
   today:=Date+2; 
   tomorrow:=Date+3; 
  end 
  else if dnr=6 then begin 
   today:=Date+3; 
   tomorrow:=Date+4; 
  end 
  else begin 
   today:=Date; 
   tomorrow:=Date+1; 
  end;

Den Tag für tomorrow errechnet mir das Programm völlig korrekt, für today wird aber immer das Ergebnis der letzten else-Aktion ausgegeben.

[Jürgen Thomas]

Ein Blick in die Hilfe ist oft hilfreich:

Zitat:

DayOfWeek gibt den Wochentag zum angegebenen Datum als Integer zwischen 1 und 7 zurück. Dabei ist Sonntag Tag 1 und Samstag Tag 7

Also läuft Deine Abfrage nicht wie gewünscht.

Jürgen

[Svenkan]

1-7 sind es?
Ich hatte mir diese Funktion irgendwo hier mal rausgesucht gehabt..und da ging das ganze von 0-6, wobei Samstag 0, Sonntag 1..etc. war.

Ja OK, so stimmts.
Dankesehr.