Question

delphi中计算两个年份相差多少年，用什么函

Answer 1

下面的示例中提供了一种方法。供参考。

procedure TForm1.Button1Click(Sender: TObject);
var
  year,month,day:word;
begin
   DecodeDate(NOW,Year, Month, Day);   { function Now: TDateTime; }
   edit1.Text:=inttostr(year)+'-'+inttostr(month)+'-'+inttostr(day);
   {即用DecodeDate 过程返回年份数值，再将两个年份数值相减即可}
end;