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

[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;