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