在Dehi中如何实现 DateAdd,即当前日期+n天数，得到结果的日期？

Question

直接在tdatetime上加n就可以了
举个例：
假如： date()='2002-08-13';
  ==>  date()+1='2002-08-14';
当然了，你自己还要用formatDateTime来格式化一下

Answer 1

比如是
'2002/01/01' +200
得到的日期是多少？
你date()取得是当前日期，
我不是从当前日期开始的

Answer 2

Date本来就是FLOAT格式，在数值上加上n后再转换为DateTime就可以了。

Answer 3

var
 Date1,Date2:TDate;
begin
 Date1:=StrToDate('2002-1-1');
 Date2:=Date1+200;
 Edit1.text:=DateToStr(Date2);
end;自己看结果 2002-7-20

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
t:tdate;
begin
 t:=strtodate('2002-01-01') +200 ;
 showmessage(datetostr(t));
end;

Answer 5

直接‘日期+天数’就可以了
IncMonth，是月数增减