请问怎么获得两个日期相减的天数

万分感谢

解决方案 »

  1.   

    引用dateutils单元
    用函数DaysBetween
      

  2.   

    var
      a,b:TDate;
    begin
      int(a-b)
    end;
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      date1, date2: TDate;
    begin
      date1 := strtodate('2003-5-20');
      date2 := strtodate('2003-5-21');
      Caption := floattostr(date2 - date1);
    end;
      

  4.   

    var
      a, b: TDateTime;
    begin
      a := StrToDateTime('2002-1-3 20:00');
      b := StrToDateTime('2002-1-5 21:00');
      ShowMessage(FloatToStr(b-a));
    end;整数部分就可以了
      

  5.   

    介绍一个日期函数
    select datediff(day,'2002-1-3 20:00','2002-1-5 21:00')
    如果hour，second也可以。
      

  6.   

    trunc(datetimepicker1.datetime-datetimepicker2.datetime);
      

  7.   

    直接两个tdatetime相减去整数就是相差的天数，至于为什么，欧口水都说干了，看看以前的帖子把。
    tDateTime = Float