需求:增加年(月、日) 声明: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;