请问如何得出两个日期之间的天数

[greatnose]

给定两个日期,如何得到这两个日期
之间的间隔.
如19990213 到20001123

[Spqk005]

var
day1,day2:TDateTime;
i: Extended;
begin
day1:=strtodate('1999-02-03');
day2:=strtodate('1999-02-23');
i := Int(day1)-Int(day2);
showmessage(FloatToStr(i));
end;

[Spqk005]

var
day1,day2:TDateTime;
i: Extended;
begin
day1:=strtodate('1999-02-03');
day2:=strtodate('1999-02-23');
i := Int(day1)-Int(day2);
showmessage(FloatToStr(i));
end;

[jmjunta]

其实不用这么麻烦，有一个函数就是计算这用的，和我联系[e-mail]

[hch_45]

这个函数
function CountDay(D1,D2:TDateTime):integer;
begin
Result := Abs(Trunc(D1 - D2));
end;

[lw549]

相减，取整！

[fuyifan]

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

[hiflower]

我看不惯 jmjunta(junta) 这种人，知道了就说，还什么EMAIL

[bluespy]

DaysBetween

[hp0773]

就是
还摆什么臭架子
气愤！

[tears0]

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

[yangxjn]

问如何得出两个日期之间的天数
function CountDay(D1,D2:TDateTime):integer;
begin
Result := Abs(Trunc(D1 - D2));
end;

记得Uses DateUtils；

[charles2118]

我不知道，所以学习ing

[Little2000]

引用DateUtils单元后，用
function DaysBetween(const ANow, AThen: TDateTime): Integer;

[yongxin800]

select datediff(year[month,day],startdate,enddate)

[sanjin]

直接相减

[zhelern]

天数=DateTime1.value-DateTime2.value

[fang3103]

直接相减。。。。。。。。

[td427]

用DaysBetween,事先引用DateUtils

[ly_liuyang]

Trunc(DateTime直接减）

DaysBetween也可以，记得Uses DateUtils；

[timgreen]

那有没有求两个时间之间的毫秒数的function啊