日期函数的应用，如何计算两个日期之间相关的年月日？

[馮強]

是否可以用两个日期相减，得到天数，再计算有几年零几个月？请提示一下，最好给出简单例程。谢谢啦。

[CeleronII]

是的，直接减就可以了

[馮強]

相减，得到的年月日的差，还是相差的天数？(在VB中，好象得到的是天数)。由于手上的书没有具体讲到函数的应用，请给个简单例程。

[zfk51069]

直接减，日期直接减，得到的也是日期形式，年表示相差年数，月表示相差月数。
要得到年和月，可以用函数decodedate. OK了

[馮強]

原来如此：）谢谢两位。

[BS]

function aa(Date1,Date2:TDateTime,var year,month,day:integer;):boolean;
var
year1,month1,day1,year2,month2,day2:Word;
begin
result:=false;
try
day:=Date1-Dat2;
DecodeDate(Date1,year1,month1,day1);
DecodeDate(Date1,year2,month2,day2);
month:=(year1-year2)*12+month1-month2;
year:=year1-year2;
result:=true;
except
exit;
end;
end;