[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

I'm looking for a function that, with a date as param, would
return the date of the last day of the month, i.e.

function TForm1.LastDateOfMonth(Dt : TDateTime) : TDateTime;
var
   Year,Month,Day : Word;
begin
     DecodeDate(Dt,Year,Month,Day);
     {Make the date the first day of the next month}
     Day := 1;
     inc(Month);
     if Month = 13 then begin
        Month := 1;
        inc(Year);
     end;
     {Covert to TDateTime and minus 1 from it to give you the last day
      of the previous month}
     Dt := EncodeDate(Year,Month,Day);
     Result := Dt -1;
end;

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]