Letzter Tag im Monat (Datum) ermitteln

[eddy]

Hallo 1PM,

hier noch ein Vorschlag:

Code:

function LstDayOfMonth(dt:TDateTime):TDateTime;
var
  t1,m1,j1 : word;
begin
  DecodeDate(dt,j1,m1,t1);
  if m1 = 12
    then m1 := 1
    else inc(m1);
  t1 := 1;
  dt := EncodeDate(j1,m1,t1);
  Result := dt - 1;
end;

mfg
eddy