Nächsten Tag berechnen!

[angos]

Hi,

die Ideen von den Vorpostern sind definitiv zu bevorzugen, da diese übersichtlicher sind, aber damit du weisst was bei deinem Code noch gefehlt hat:

Delphi-Quellcode:

  // Februar im Schaltjahr
  if (Monat = 2) and (IsLeapYear) then
  begin  //  hier gehört noch ein begin hin
    if Tag = 29 then
    begin
      TagM := 1;
      MonatM := Monat + 1;
      jahrM := Jahr;
    end
    else if (Tag < 29) and (Tag >= 1) then
    begin
      TagM := Tag + 1;
      MonatM := Monat;
      JahrM := Jahr;
    end
    else  // Das kannste dir sparen ;) ->  if (Tag > 29) or (Tag < 1) then
      showmessage('Unsinn!');
  end //  hier gehört noch ein end hin

  // Februar ohne Schaltjahr
  else if Monat = 2 then
  begin // auch hier ein begin
    if Tag = 28 then
    begin
      TagM := 1;
      MonatM := Monat + 1;
      JahrM := Jahr;
    end
    else if (tag >= 1) and (Tag < 28) then
    begin
      TagM := Tag + 1;
      MonatM := Monat;
      jahrM := Jahr;
    end
    else
      showmessage('Unsinn!');
  end;  // und das end nicht vergessen
end;

Gruß
Ansgar