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

[himitsu]

Zitat von sammynrw:

aber er rechnet nur bis zum November ... dann kommt die fehler meldung

Und nun lies dir nochmal die alle Antworten durch, denn der Grund wurde mehrfach erklärt und sogar Lösungen genannt.

Auch ein Blick in EncodeDate (siehe VALID/ZULÄSSIG) kann nicht schaden.

[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

[Sir Rufo]

Erster Tag des Monats (Tag 1 vom aktuellen Monat und Jahr)

Delphi-Quellcode:

function GetFirstDateOfMonth( ADate : TDate ) : TDate;
var
  LYear, LMonth, LDay : word;
begin
  DecodeDate( ADate, LYear, LMonth, LDay );
  Result := EncodeDate( LYear, LMonth, 1 );
end;

Letzter Tag des Monats (ein Tag vor dem 1. Tag des nächsten Monats)

Delphi-Quellcode:

function GetLastDateOfMonth( ADate : TDate ) : TDate;
begin
  Result := IncDay( IncMonth( GetFirstDateOfMonth( ADate ), 1 ), -1 );
end;