时间加减函数(年、月、日)《转》

需求：增加年（月、日） 声明：function IncYear ( const StartDate : TDateTime {; NumberOfYears : Integer = 1} ) : TDateTime;

描述：IncYear函数将传递进来的StartDateTime参数加上NumberOfYears数量的年数。

增减的数量是可选的，默认为1。

增加年份后，如果日期数对于当前年月而言太大的话，它会自动缩减为当前年月的最大日期值。

例： IncYear(now);//当前日期加1年 IncYear(now, 5);//当前日期加5年 IncYear(now, -1);//当前日期减1年

需要操作月份就调用IncMonth()函数，需要操纵日就调用IncDay()函数，用法类似。 还有IncWeek()、IncHour()、IncMinute()、IncSecond()等。

备注：没有DecYear这个函数，相反，在IncYear中使用一个负数增加量。

需求：在循环中给i加1或加n（减1或减n） 用Inc()或Dec();

procedure TForm1.test();
var i : integer;
begin
i := 0;
for y := 0 to 100 do
begin
Inc(i);//每次给i+1；
Inc(i, 5);//每次给i+5；
Dec(i);//每次给i-1;
Dec(i, 5);//每次给i-5；
end;
end;