急~~~~~~``请问日期加减的代码如何写啊？？？？解决既揭贴

Question

简单的就是比如： 输入2005-01  通过编写代码我要得到 2005-02 和2004-12 ，这个代码应该如何写啊？ 不吝赐教

Answer 1

uses dateutils ;
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage(datetostr(IncMonth(now,-1)));
  //                     ~~~~~~~
end;

Answer 2

Delphi syntax:function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime;

Answer 3

幫助中一堆 incDay, incXXXX 可查!
部分在 SysUtils 中