如何计算两个时间日期型变量的以秒为单位的差值？

Question

怎样计算两个时间日期型变量的以秒为单位的差值？
比如
var
  tm1, tm2; TTime;
  str:string;
begin
  tm1 := Now();
  ...
  ...
  tm2 := Now();
  
  str := '持续时间为：' + [tm2 - tm1]; // 此处应该怎么写？？？？
end;
end;

Answer 1

你是想计算程序执行的时间吗？如果是的话，用GetTickCount就可以了。
写法和上面差不多。
var
  tm1, tm2; word;
  str:string;
begin
  tm1 := GetTickCount();
  ...
  ...
  tm2 := GetTickCount();
  
  str := '持续时间为：' + FormatFloat('0.000', (tm2-tm1)/1000);
end;

Answer 2

datediff()函数
参数：1，精度 2，开始时间 3， 结束时间