如何从TTime变量中
删除秒数,而不需要使用TimeToStr(const datetime：TDateTime; const formatsettings：TFormatSettings)获得不带秒的TTime值的额外开销？
即这就是我需要的 – > HH：MM：00.
有可能执行某种数学操作(如ANDing或ORing值)
var
t: TTime;
iHour,iMin,iSec,iMSec: Word;
DecodeTime(t,iHour,iMSec);
t := EncodeTime(iHour,0);
