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

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

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

コード

var

  FirstDay, LastDay : TDate;

begin

  //1日を作る

  FirstDay := StrToDate(‘2012/1/1’);

  //月末を求める

  LastDay := IncMonth(FirstDay) -1;

end;

まずStrToDateで初日をあらわす文字列からTDate型を生成します。
次にIncMonth関数でFirstDayを1ヶ月進めます。
そこから-1で1日引けば月末日が出ます。