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日引けば月末日が出ます。