各位大哥 Delphi5 中有没有时间相减的好办法，谢了先！！

Question

DateTimeToTimeStamp(Time1)-DateTimeToTimeStamp(Time2)为两个时间之间相差的毫秒数

Answer 1

在Delphi中，时间类型就是一个浮点数，单位是天。
所以两个时间相减，就是他们间相差的天数。结果乘24，就是小时，再乘60就是分钟。再乘
60就是......就不用我说了吧。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  d1 , d2 :tdatetime;
begin
  d1 := strtodatetime('2002-01-28 16:00:00');
  d2 := strtodatetime('2002-01-28 12:00:00');
  showmessage(timetostr(d1-d2));
end;

Answer 3

谢谢 Apollo47(阿波罗)
也谢谢 BraveYang(勇敢的羊)与cszhz(丑小鸭）的捧场