日にち計算 on WorkToolSmith

Delphiで月の初日、末日を求める

Wed, 18 Jan 2012 10:56:31 +0900

Delphiである月の初日、月末日を求める方法です。

以前にもこのブログで書いたことがありますが、以前の記事では翌月の求め方が書いてありませんでした。

Tue, 29 Nov 2011 18:21:55 +0900

翌月の1日を代入し、そこから1日引くことで作成できる。

var

 LastDay : TDate;

 begin

 LastDay := StrToDate(‘2011/11/1’);

 LastDay := LastDay - 1;

 ShowMessage DateToStr( LastDay );

 end;