Question

delphi中要把时间比如说2011年1月1日12时25秒转换成整型数怎么转换

我记录下当前程序运行的时间，再次运行时程序时也记下一个时间，两次时间相减得出来秒数怎么实现，是不是要把时间转换成整数

Answer 1

楼上的有点问题。
var
OldTime: TDateTime;
NowTime: TDateTime;
temp: real;
ii:integer;
在开始时
OldTime := Now;
在要计算时
NowTime := Now;
temp:=(NowTime-OldTime)*24*60*60 ;
ii:=round(temp);

Answer 2

似乎时间可以直接相减。
var
OldTime: TDateTime;
NowTime: TDateTime;
在开始时
OldTime := Now;
在要计算时
NowTime := Now;
TimeToStr(NowTime-OldTime)；

Answer 3

如果只是为了计算运行时间，可以这样：

var
startTime, endTime: Cardinal;
begin
startTime := GetTickCount;

DoSometing();

ShowMessage('执行时间为：' + IntToStr(endTime - startTime) + '毫秒');
end;

Answer 4

GetTickCount