Forum: Object-Pascal / Delphi-Language
by Wolfgang Mix,
12. Aug 2012
Sorry Detlef,
aber mein Code braucht jetzt weder zusätzliche Variablen,
Konstanten noch externe Funktionen.
Bin eigentlich mit dem jetzigen Code zufrieden :-)
Mein k und Dein CORRECTIONVALUE sind also überflüssig
LG
Wolfgang
Forum: Object-Pascal / Delphi-Language
by Wolfgang Mix,
12. Aug 2012
Nochmal wegen der Lesbarkeit und ohne Hilfskrücken
(unnötige Zusatzvariblen) habe ich es jetzt so
und es funktioniert.
if (monat in) and isleapyear(jahr) then
schaltjahrkorrektur:=1
else schaltjahrkorrektur:=0;
Zitat meines Lehrmeisters:
Forum: Object-Pascal / Delphi-Language
by Wolfgang Mix,
12. Aug 2012
Danke Detlef,
in (1,2) hatte ich auch versucht,
allerdings mit :(
Forum: Object-Pascal / Delphi-Language
by Wolfgang Mix,
12. Aug 2012
@Popov und @fkerber
Ihr hattet recht, es ist ein Klammerproblem.
Mit Popovs Klammern funzt es:
Danke an Euch
LG
Wolfgang
Forum: Object-Pascal / Delphi-Language
by Wolfgang Mix,
12. Aug 2012
Sorry, auch mit deinen Klammern funktioniert es nicht.
LG
Wolfgang
Forum: Object-Pascal / Delphi-Language
by Wolfgang Mix,
12. Aug 2012
Habe gerade einen Blackout.
Problem:
Wenn Januar oder Februar im Schaltjahr vorliegt,
soll eine Schaltjahreskorrektur vorgenommen werden (1),
andernfalls 0.
Wörtlich übersetzt:
//Logikfehler
{ if (monat=1) or (monat=2) and isleapyear(jahr) then