Delphiで月ごとの最終日(月末日)を求める

すごくよく忘れるので自分用のメモ。

 

uses に System.DateUtils を追加。

最終日を求めたい月の適当な日でTDateTimeを生成、EndOfTheMonthで最終日の時間を求める。(下記では1日で作っている)

var
  d : TDateTime;
begin
  d := StrToDateTime(editYear.Text + '/' + editMonth.Text + '/01');
  d := EndOfTheMonth(d);
  ShowMessage(FormatDateTime('yyyy/mm/dd', d));
end;

XE3で確認。