Question

delphi中有让日期加一年的函数吗

Answer 1

delphi 语言里，让日期加一年的函数是 IncYear。该函数定义于 DateUtils 单元，在使用前需要先 uses 该单元。

IncYear 的函数原型定义如下：

function IncYear(const AValue: TDateTime;const ANumberOfYears: Integer = 1): TDateTime;

示例代码如下：

var
  date1:TDateTime;
begin
  date1 := '2012-10-10'; 
  showmessage(datetimetostr(IncYear(date1));
end;