在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。