delphi操作日期 變數+1-1

 

轉自：原文連結

 

 

需求：增加年（月、日）
聲明：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;