Du weißt aber, daß dein GetDaysInMonth nicht ganz richtig rechnet? (vorallem für die Jahre 1800, 1900, 2100, 2200 uvm.)
Aber wie man das Schaltjahr wichtig berechnet .... dafür gibt es Wiki und massit Tutorials.
Zitat:
bedeutet der aktuelle monat wird ausgelesen und wenn er 31 tage hat wird eine andere berechnung durchgeführt als wenn er 30 hat.
Wäre es nicht besser, wenn du die Monatslänge "dynamisch" in die Formel einbaust,
oder willst du noch zwei weitere Berechnungen für 29 und 28 Tage baseln?
Einige hilfreiche Funktionen:
Delphi-Quellcode:
function IsLeapYear(Year: Word): Boolean;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;
function DaysInMonth(const AValue: TDateTime): Word;
function DaysInAMonth(const AYear, AMonth: Word): Word;
IsLeapYear DaysInMonth DaysInAMonth ...
PS: Ich würde dir empfehlen besser Result zu verwenden, anstatt den Funktionsnamen.
Das macht
IMHO den Code besser lesbar und fehlerunanfälliger.
Delphi-Quellcode:
function GetDaysInMonth(Month,Year:Integer):integer;
begin
Result:=0;
case Month of
1: Result:=31;
2: if Year mod 4=0 then Result:=29 else Result:=28;
3: Result:=31;
...