IncMinute:1つのTDateTime変数の分数を減算

宣言:function IncMinute(const Start DateTime: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