IncMinute：将一个TDateTime变量加减某个数量的分钟数

声明：function IncMinute ( const StartDateTime : TDateTime {; NumberOfMinutes : Integer = 1} ) : TDateTime;

描述：IncMinute函数将传递进来的StartDateTime参数加上NumberOfMinutes数量的分钟数。

年份、月份、日期和小时数，会相应的增减。

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

备注：没有DeMinute函数，而是在IncMinute函数使用一个负数增加量。
var
myDate : TDateTime;
begin
// 初始化TDateTime变量
myDate := EncodeDateTime(2000, 12, 31, 23, 0, 0, 0);
ShowMessage('myDate = '+DateTimeToStr(myDate));

// 这个日期上加上100分钟
myDate := IncMinute(myDate, 100);
ShowMessage('myDate + 100 minutes = '+DateTimeToStr(myDate));

// 再减掉40分钟
myDate := IncMinute(myDate, -40);
ShowMessage('myDate - 40 minutes = '+DateTimeToStr(myDate));
end;

程序运行结果：

myDate = 2000-12-31 23:00:00

myDate + 100 minutes = 2001-1-1 00:40:00

myDate - 40 minutes = 2001-01-01