怎样求两个日期型数据相差多少天

有两个日期:datetimepicker1.date和datetimepicker2.date,我想算出他们之间差多少天,该怎么做呢?我不想用把他们的年月日取出来再相减,这样太麻烦了,大虾帮忙!!!

解决方案 »

  1.   

    Returns the number of whole days between two specified TDateTime values.UnitDateUtilsCategorydatetime routinesDelphi syntax:function DaysBetween(const ANow, AThen: TDateTime): Integer;C++ syntax:extern PACKAGE int __fastcall DaysBetween(const System::TDateTime ANow, const System::TDateTime AThen);DescriptionCall DaysBetween to obtain the difference, in days, between two TDateTime values.DaysBetween counts only whole days. Thus, DaysBetween reports the difference between Dec 31, 1999 11:59 PM and Jan 1, 2000 11:58 PM as 0 because the difference is one minute short of an entire day.
      

  2.   

    function DaysBetween(const ANow, AThen: TDateTime): Integer;
      

  3.   

    function DaysBetween(const ANow, AThen: TDateTime): Integer;
      

  4.   

    印象中好像是可以直接相减的
    不太清楚了，好久不用delphi了
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Edit1.Text:=IntToStr(DaysBetween(date,StrToDate('2003-5-6')));//天数
    Edit2.Text:=IntToStr(MonthsBetween(date,StrToDate('2003-5-6')));//月数
    Edit3.Text:=IntToStr(YearsBetween(date,StrToDate('2003-5-6')));//年数
    end;
      

  6.   

    function DaysBetween(const ANow, AThen: TDateTime
    ): Integer;