怎样求两个时间差！急，在线等待！

Question

var
  I: Integer;
begin
  I := (DataTimeA - DataTimeB) * 24;
end;

Answer 1

var
  I: Integer;
begin
  I := (DataTimeA - DataTimeB) * 24;
end;

Answer 2

两个时间相减得到的浮点数的整数部分是天数
至于小数部份的涵义你可以参考Delphi在线帮助，全得很。

Answer 3

相减的结果 
试一试以下代码： procedure TForm1.Button1Click(Sender: TObject); 
var 
  dtr,dts,dte : TDateTime; 
  hr : double; 
begin 
  dts :=strtodatetime('2000-11-9 12:30'); 
  dte :=strtodatetime('2000-11-9 11:30'); 
  dtr :=dte-dts; 
  hr :=dtr*24; 
  showmessage(floattostr(hr)) 
end; 

Answer 4

var
  I: Integer;
begin
  I := (DataToInt(DataTimeA) - DataToInt(DataTimeB));
end