如何計算相差的天數,謝謝!

解决方案 »

  1.   

    把两个DateTime相减,整数部分就是天数。
      

  2.   

    TDateTime 实际是Double类型。整数部分是日期,小数部分是时间,每个整数1就是1天。
    理解?不要用DateToStr之类的去看直接当Double型来操作
      

  3.   

    用DaysBetween或DaySpan
    以下是Dllphi7中的定义function DaysBetween(const ANow, AThen: TDateTime): Integer;
    begin
      Result := Trunc(DaySpan(ANow, AThen));
    end;function DaySpan(const ANow, AThen: TDateTime): Double;
    begin
      Result := SpanOfNowAndThen(ANow, AThen);
    end;function SpanOfNowAndThen(const ANow, AThen: TDateTime): TDateTime;
    begin
      if ANow < AThen then
        Result := AThen - ANow
      else
        Result := ANow - AThen;
    end;