时间减去一个小时怎么做 delphi 很方便 看代码

 

procedure TfrmTongBuTid.Button1Click(Sender: TObject);
begin
  TopStartModifiedTime_dtp.Time := TopStartModifiedTime_dtp.Time - OneHour;
end;

 

需要引用 System.DateUtils