Schreibe dir eine Funktion, die die Anzahl der Tage für einen bestimmten Monat liefert:
Delphi-Quellcode:
function TageProMonat(pMonat:integer; pSchalt:boolean):integer;
begin
// deine Lösung hier
end;
Danach ist deine Funktion CalcDays viel einfacher und klarer zu lesen.
Diese Funktion gibt es mehr oder weniger in der
Unit SysUtils.
Aber erst kucken, wenn du die Funktion selbst hingekriegt hast!
Du (und vielleicht auch manche Mitleser) wirst überrascht sein,
wie elegant und schnell Borland das umgesetzt hat.
Tip: es ist nicht wirklich eine Funktion...