delphi - 在firemonkey delphi XE4中将十进制值添加到日期时间？

Question

有没有人可以帮助我，例如：将十进制 0,5 或 1 添加到时间？

例如。0,5 + 15:30:50 = 16:00:50

Answer 1

如果您有一个时间表示为TDateTime，并希望添加几个小时，那么您可以这样做：

uses
  System.SysUtils, System.DateUtils;

function IncrementTimeBySpecifiedNumberOfHours(Time: TDateTime; 
  Hours: Double): TDateTime;
begin
  Result := TimeOf(Time + Hours/HoursPerDay);
end;

我假设您只关心这里的时间并希望实施 24 小时环绕。因此使用TimeOf.