Nochmal wegen der Lesbarkeit und ohne Hilfskrücken
(unnötige Zusatzvariblen) habe ich es jetzt so
und es funktioniert.
Delphi-Quellcode:
if (monat in[1,2]) and isleapyear(jahr) then
schaltjahrkorrektur:=1
else schaltjahrkorrektur:=0;
Zitat meines Lehrmeisters:
"Geht nicht" gibt es nicht
LG
Wolfgang