Letzter Tag im Monat (Datum) ermitteln

[eddy]

Hallo Leute,

1PM hat mich freundlicherweise auf einen Fehler in meinem Vorschlag hingewiesen. Hier die korrekte Version:

Code:

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

mfg
eddy