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.