月日を加算減算する

TDate型に+1したりすると日が加算されます。月を加算するには IncMonth関数を使用します。1とすれば一ヶ月後、-1とすれば一ヶ月前の日付を求める事ができます。

■ 月日を加算減算する例 
var
  datToday    :    TDate;
begin
  datToday    :=   Now;
  datToday    :=   IncMonth(datToday, -3); //3ヶ月前   
  Caption     :=   DateToStr(datToday);
end;