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

发布网友发布时间：2023-07-25 17:14

共1个回答

热心网友时间：2024-10-30 16:16

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

procere 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;

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com