求两日期差的天数

Question

求两日期差的天数 DaysBetween 是不是多余的? 因为
ShowMessage(floattostr(strtodate('2007-8-20')-strtodate('2007-8-17')));这样直接相减也行呀?

Answer 1

暈，日期可以直接相減，有那麼麻煩麼？還to來to去

Answer 2

// 求两日期的天数
function DaysBetween(const AFrom, ATo: TDateTime): Integer;
begin
   result := Trunc(ATo - AFrom);
end;

Answer 3

use dateutils
procedure TForm1.Button1Click(Sender: TObject);
 var
     A,B,C:TDatetime;
 begin
     A:=now;
     B:= strtoDateTime('2007/02/01 00:00:00');       showmessage(inttostr(DaysBetween(a,b)));
  //  end;
end;

Answer 4

//   求两日期的天数 
function   DaysBetween(const   AFrom,   ATo:   TDateTime):   Integer; 
begin 
      result   :=   Trunc(ATo   -   AFrom); 
end; 这个可以!

Answer 5

晕,我的问题是直接相减就OK的,为什么都用DaysBetween

Answer 6

按我们的生活习惯，直接相减就可以了。
按科学计算方法，是用DaysBetween函数，用DaysBetween算出来的与直接相减有误差。
比如：2007-08-01 23:00:00 与2007-08-02 01:00:00，直接相减为1天，用DaysBetween为0天

Answer 7

晕，有那么麻烦吗，Delphi有专门的函数……………………