在Delphi中如何进行日期型字段的加减？

Question

//for Delphi6 DateUtils.pas
{ Range query functions }function YearsBetween(const ANow, AThen: TDateTime): Integer;
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
function WeeksBetween(const ANow, AThen: TDateTime): Integer;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64; 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var a,b: TDateTime;
begin
  a:= StrToDateTime('2001-1-3');
  b:= StrToDateTime('2001-1-1');
  a:= a - b;  //因为日期时间型本来就是Double型的数据:)
  ShowMessage(FloatToStr(a));
end;