1

我有以下 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),得到了相同的结果。我错过了什么?

4

1 回答 1

13

IncHour 返回增加的值,它不会更新传入的变量。

所以你需要这样做:

dtval := IncHour(dtval, 1);
于 2009-06-25T18:35:28.087 回答