Delphiである月の初日、月末日を求める方法です。
以前にもこのブログで書いたことがありますが、以前の記事では翌月の求め方が書いてありませんでした。
コード
var
FirstDay, LastDay : TDate;
begin
//1日を作る
FirstDay := StrToDate(‘2012/1/1’);
//月末を求める
LastDay := IncMonth(FirstDay) -1;
end;
まずStrToDateで初日をあらわす文字列からTDate型を生成します。
次にIncMonth関数でFirstDayを1ヶ月進めます。
そこから-1で1日引けば月末日が出ます。