Question

Delphi 中计算两个日期间的年数

Delphi中怎样可以计算两个年月日期段的年数，譬如：2014/12/17 到 2015/12/17 为1年，不然就是多少月。

求代码！~谢谢

Answer 1

uses DateUtils;

YearsBetween()
MonthsBetween()

追问

能否说明一下这两个函数如何可以实现上面的内容？

追答

Delphi中怎样可以计算两个年月日期段的年数？答：用YearsBetween()方法；

譬如：2014/12/17 到 2015/12/17 为1年，不然就是多少月。

啥意思？日期相差不是一年就要返回多少月吗？还是日期相差小于一年要返回多少月？

function f(rq1, rq2: TDateTime): string;
begin
if YearsBetween(rq1, rq2) >= 1then

begin

Result := Format('相差%d年', [YearsBetween(rq1, rq2)]);
end

else

begin
Result := Format('相差%d月', [MonthsBetween(rq1, rq2)]);
end;

end;