delphi - 如何在日期时间变量中增加天数和小时数？

Question

如果我需要获取类似12/30/2013的日期并在晚上8点添加10天，如果我在第一个日期有一个TDateTime变量，该如何在Delphi中实现呢？

Answer 1

您可以使用+运算符添加整数天数，并使用SysUtils.ReplaceTime()更改时间，例如：

uses
  ..., SysUtils;

var
  DT: TDateTime;
begin
  DT := EncodeDate(2013, 12, 30); // Dec 30 2013 @ 12AM
  DT := DT + 10; // Jan 9 2014 @ 12AM
  ReplaceTime(DT, EncodeTime(20, 0, 0, 0)); // Jan 9 2014 @ 8PM
end;