時間加減函式

[Delphi 5]
d1, d2: TDateTime;
d1 := d2 + EncodeDate(1, 0, 0); // 加一年
d1 := d2 + EncodeDate(0, 1, 0); // 加一個月
d1 := d2 + EncodeDate(0, 0, 1); // 加一天
d1 := d2 + EncodeTime(1, 0, 0, 0); // 加一小時，最大到23小時
d1 := d2 + EncodeTime(0, 1, 0, 0); // 時間加一分鐘
d1 := d2 + EncodeTime(0, 0, 1, 0); // 時間加一秒
d1 := d2 + EncodeTime(0, 0, 0, 1); // 時間加一毫秒，加1000次才等於一秒


[Delphi 7]
IncYear
IncMonth
IncDay
IncHour
IncMinute
IncSecond
IncMilliSecond