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