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