月末日を求める方法は？

[対象バージョン]

Delphi 3.0J

[説明]

Delphiで月末日を求める方法です。

[対処法]

Delphiには末日を求める関数は用意されていません。
そこで、末日を求めるには求めたい月の翌月1日から１を引くことで求めることができます。

[サンプルソース]

var
    datWork : TDate;
begin
    datWork := StrToDate('1997/3/1');
    datWork := datWork - 1;
    ShowMessage DateToStr( datWork );
end;