求两日期差的天数

[frjfanding123]

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

[frjfanding123]

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

[Frank.WU]

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

[pongjun64]

每个问题都有N种解决方法
在客户可以接受的效率条件下，至于选择那种方法纯属程序员决定

[ldk0110]

相同的问题有很多种不同的解发，这要看个人的习惯和爱好，当然越是简单方便越好

[很土]

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

[thinknet]

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

[frjfanding123]

谢谢大家,各位都是件人呀

[wangxuelid]

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;

[骑牛上铂金]

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

这个可以!

[ldk0110]

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