本文整理自网络，侵删。
声明：function IncYear ( const StartDate : TDateTime {; NumberOfYears : Integer = 1} ) : TDateTime;
描述：IncYear函数将传递进来的StartDateTime参数加上NumberOfYears数量的年数。
增减的数量是可选的，默认为1。
增加年份后，如果日期数对于当前年月而言太大的话，它会自动缩减为当前年月的最大日期值。
备注：没有DecYear这个函数，相反，在IncYear中使用一个负数增加量。
var
myDate : TDateTime;
begin
// 初始化变量为闰年的一个特殊日子
myDate := EncodeDate(2000, 02, 29);
ShowMessage('myDate = '+DateToStr(myDate));
//加上2年
myDate := IncYear(myDate, 2);
ShowMessage('myDate + 2 years = '+DateToStr(myDate));
// 减去2年
myDate := IncYear(myDate, -2);
ShowMessage('myDate - 2 years = '+DateToStr(myDate));
end;
程序运行结果：
myDate = 2000-2-29
myDate + 2 years = 2002-2-28
myDate - 2 years = 2000-2-28
相关阅读 >>
Delphi winapi: setvolumelabel - 设置磁盘卷标
Delphi indy 组件包里的 idhttp 组件使用 get 方法下载文件限速的方法
Delphi新建服务，停止系统服务，以及获取服务状态和新建系统服务器的方法
更多相关阅读请进入《Delphi》频道 >>
