请问在Delphi中有类似VB中DateDiff，DateAdd功能的函数吗？如没有怎样解决？！！一定给分

Question

DateDiff 返回两个指定日期间的时间间隔数目；
DateAdd  返回一个日期加上一个指定的时间间隔数后的时间

Answer 1

在delphi里面更简单了。
datediff-->trunc(date1)-trunc(date2)就是间隔日期。
dateadd-->date2:=date1+time1直接加就行了。
一句话，delphi的日期时间型就是double,整数是日期，小数是时间

Answer 2

uses DateUtils;DaysBetween(date1, date2)
IncDay(date1, 3)

Answer 3

IncDay
IncHour
IncMilliSecond
IncMinute
IncMonth
IncSecond
IncWeek
IncYear

Answer 4

DateDiff:
function DaysBetween(const ANow, AThen: TDateTime): Integer;
DateAdd:
Delphi日期型变量可直接与整型一起运算。
如：Date2:=date1+1;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  T1, T2 : TDate;
  T3 : Double;
begin
  T1 := StrToDate('2003/01/01');
  T2 := StrToDate('2003/02/01');
  T3 := T2 -T1;   // DateDiff
  Showmessage(floattostr(T3));
end;