Tagesanzahl Februar eines Jahres

[Delphi.Narium]

Zitat von Andreas13:

Zitat von taveuni:

Zitat von Delphi.Narium:

Geht aber kürzer Days := IfThen(IsLeapYear(Year),29,28);

Wow!

Diese neuere Kurzform IfThen trägt nicht unbedingt zur Übersichtlichkeit bei. Es ist eher fehleranfällig als gut, daher würde ich es persönlich nicht benutzen. Intern sind die beiden Befehle sicherlich identisch.
Andreas

Was ist daran fehleranfällig?

Wenn ich beim Programmieren nicht aufpasse, mache ich Fehler.

Beim Aufruf einer derartigen Funktion mit 'nem Rückgabewert ist (zumindest bei mir) die Fehlerhäufigkeit nicht höher, als bei beliebigen anderen Funktionen mit mehreren Parametern und 'nem Rückgabewert.

Und das IfThen 'ne neuere Kurzform ist, halt' ich für 'n Gerücht. Mein olles Delphi 7 aus dem Jahr 2002 enthält diese Funktionen in den Units Math und StrUtils. Die neuere Kurzform ist also erst / mindestens 18 Jahre alt und damit volljährig und darf wählen sowie gewählt werden. Ich wähle sie

Und wenn sich wer an dem If Then stört:

Delphi-Quellcode:

case IsLeapYear(Year) of
  true  : Days := 29;
  false : Days := 28;
end;

Oder ginge es auch so? Days := 28 + Ord(IsLeapYear(Year));