求两日期间的天数之求帮助之再求帮助！！！

[laolie]

delphi 5.0 两日期型（tdate）项减得天数如在同年月正确否错误
谁有更好的方法！！！（我已奋战一夜了）

[江王]

其实日期类型与Double类型是一样的。其整数部分存放的日期，小数部分存放的是时间，故两日期型变量相减的整数部分就是相隔的天数。

[江王]

当然，为确保正确可编一个函数如下：

function DayDiff( d1, d2 : TDate );
var
nYear1, nMonth1, nDay1 : Word;
nYear2, nMonth2, nDay2 : Word;
begin
DecodeDate( d1, nYear1, nMonth1, nDay1 );
DecodeDate( d2, nYear2, nMonth2, nDay2 );

result := Trunc( EncodeDate(nYear1, nMonth1, nDay1) -
EncodeDate( nYear2, nMonth2, nDay2 ) );
end;

[jll]

最好还要先FormatDateTime一下

[TangX]

同年月的有什么意思？要不同年月的才好呢。

[wx_zhang]

so easy

[thinking_man]

日期是double类型，用后面的日期整数部分减前面的日期整数部分，不就可以表示相差多少天了。
小数部分表示同一日中的时间，*.25就表示*日6：00正。
如果你光想得到X年X月X日到Y年Y月Y日中隔了多少天，直接对其取整数部分，然后相减就行。