delphi 中实现当期日期 减去 若干小时的方法

假定当期日期为：2011-08-01 15:00:00

 now - 1      ：代表前一天的日期 返回值：2011-07-31 15:00:00

 now - 1/3   ：代表8小时前          返回值：2011-08-01 07:00:00

 now - 1/12 ：代表2小时前         返回值：2011-08-01 13:00:00

 now - 1/24 ：代表1小时前         返回值：2011-08-01 14:00:00