Hi,
auch wenn ich den Sinn der Sache nicht ganz verstehe, vermut ich dass der Fehler in der Klammerung besteht - and klammert stärker als or.
Es steht also aktuell quasi das da:
Delphi-Quellcode:
if (monat=1) or ((monat=2) and isleapyear(jahr)) then
schaltjahrkorrektur:=1
else schaltjahrkorrektur:=0;
aber du willst
Delphi-Quellcode:
if ((monat=1) or (monat=2)) and isleapyear(jahr) then
schaltjahrkorrektur:=1
else schaltjahrkorrektur:=0;
LG,
Frederic