delphi - DateUtils の IncHour プロシージャ

Question

TDateTime 値を 1 時間インクリメントする次の Delphi 7 コードがあります。何らかの理由で機能しません。

 StatusMemo.Lines.Add('prior '+DateTimeToStr(dtval));
 IncHour(dtval,1); // add an hour for DST
 StatusMemo.Lines.Add('after '+DateTimeToStr(dtval));

コード実行後の StatusMemo の内容:

prior 6/24/2009 5:35:40 AM
after 6/24/2009 5:35:40 AM

IncHour が機能していないように動作します。IncMinute(dtval,60) を使用してみましたが、同じ結果が得られました。私は何が欠けていますか？

Answer 1

IncHour はインクリメントされた値を返します。渡された変数は更新されません。

したがって、次のことを行う必要があります。

dtval := IncHour(dtval, 1);