Letzter Tag des Monats bestimmen

[eddy]

Hallo Holger,

ich nutze das:

Delphi-Quellcode:

function LstDayOfMonth(dt : TDateTime) : TDateTime;
var
  DayTable : PDayTable;     // siehe SysUtils
begin
  DecodeDate(dt, jj, mm, tt);
  DayTable := @MonthDays[IsLeapYear(jj)];    // schaltjahrabhängig Zuweisung der Tabelle
  tt := DayTable^[mm];
  Result := EncodeDate(jj, mm, tt);
end;

mfg
eddy