delphi - DateUtils 中的 IncHour 过程

Question

我有以下 Delphi 7 代码，用于将 TDateTime 值增加一小时。由于某种原因它不起作用。

 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);