Fortlaufende Monat Aufzählung Stoppt im Monat Dezember ???

[Helmi]

Hallo,

das hier ist doch viel rumgerechnet um nichts:

Delphi-Quellcode:

function monatsberechnung(monatfeld: Integer): TDate;
var
   jahr, monat, tag: word;
   Tage : Integer;
begin
{...}

   tage := tag;
{...}
    tag := tag - tage+2;

{...}
end;

Tag ist so ja immer 2