【急】如何求两个Tdatetime时间变量T1,T2的相隔的秒数？

Question

有两个Tdatetime时间变量T1,T2
如果求T1，T2相隔的秒数？

Answer 1

uses
DateUtils;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;

Answer 2

function MinutesBetween(const ANow, AThen: TDateTime): Int64;
-------------------------------------------------------------
var
  interval: integer; 
begin
  ...
  interval := MinutesBetween(T1,T2);
  ...
end;

Answer 3

更正一下：function MinutesBetween(const ANow, AThen: TDateTime): Int64; 是间隔分钟，间隔秒数用1楼

Answer 4

ShowMessage(IntToStr(SecondsBetween(now,strtodatetime('2007-10-01 17:00:00'))));

Answer 5

楼上都说了
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
注意要引用DateUtils 单元，里面有好多处理日期时间的方法