WorkToolSmith

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

太田アベル

・ 1分で読めます

当サイトの記事には一部に広告リンクが含まれます。

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

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で確認。

太田アベル

太田アベル

パソコンを7歳からいじり始めて40年。とにかくパソコンが好きです。気になった商品をほぼ自腹で買いまくってレビュー中!良かった点、悪かった点をズバズバ書きます。

𝕏 でフォロー プロフィールを見る

こちらもおすすめ