delphi - 如何从 TTime 中删除秒而不诉诸 TimeToStr(const datetime :TDateTime; const formatsettings:TFormatSettings)

Question

如何从 TTime 变量中删除秒，而不需要使用 TimeToStr(const datetime:TDateTime; const formatsettings:TFormatSettings) 来获取没有秒的 TTime 值的额外开销？

即这就是我需要的 -> HH:MM:00。

是否可以执行某种数学运算(例如与某个值进行“与”或“或”运算)？

Answer 1

uses
  ..., DateUtils;

var
  t: TTime;
begin
  t := ...;
  t := RecodeSecond(t, 0);
end;