日期想减得秒数（要示例）,该如何处理

日期想减得秒数（要示例）
现在有个需求，在调用一个函数之前记录当前时间，调用结束后用当前时间减去开始执行时的时间得到这个函数共运行多少秒钟。网上找的好些方法都不行。
beginTime,endTime : TDateTime;
seconds : Real;
begin
  beginTime := now;
  myFun();
  endTime := now;
  seconds := endTime - beginTime;
  showMessage(floatToStr(seconds));//假如结果是 2.3241.......123411;我只想要秒数
  showMessage(intToStr(round(seconds)));//结果是0
  //我想要的结果是2如果大于2.5则想要3
end;

[解决办法]
用 GetTickCount
[解决办法]

Delphi(Pascal) code

vart1,t2:DWORD;begin  t1:=GetTickCount;  .......  t2:=GetTickCount;  ShowMessage('用时'+IntToStr((t2-t1) div 1000)+'秒');end;