关于日期计算的问题！

Question

TDateTime t,m;
t=StrToDate("2002-02-02");
m=t+7;

Answer 1

var
d1,d2:tdate;begin
d1:=strtodate('2002-01-01');
d2:=strtodate('2001-01-01');
showmessage(inttostr(round(int(d1-d2))));end;

Answer 2

var
d1,d2:tdate;
begin
d1:=strtodate('2002-01-01');
d2:=d1+3;
showmessage(datetostr(d2));end;

Answer 3

TDateTime其实是一实数类型，小数点之前是世纪初年至今天的日子
所以求间隔，只用将两个TDateTime的数相减就OK了

Answer 4

1、days := DaysBetween(date2, date1) ; //days即为间隔天数
2、终止日期 := 起始日期+天数

Answer 5

我也遇到这个日期计算的问题啦，用DaysBetween()果然可以哦，不过记得在uses部分加上DateUtils~~~呵呵，这个函数让我省了不少力气~~不然我就死在“月份”的手上了~~嘻嘻~~