1,184
社区成员
发帖
与我相关
我的任务
分享两个不同系统时间之差，精确到毫秒怎么做？急啊！！！
time1,time2:TDataTime;
interval:=time2-time1;
请问interval要毫秒级的。怎么做？
interval:=time2-time1;
请问interval要毫秒级的。怎么做？
...全文
请发表友善的回复…
发表回复
citytramper 2002-12-28
- 打赏
- 举报
学习
stanely 2002-12-28
- 打赏
- 举报
gettickcount最精确是20ms,timegettime最精确是1-2ms,是多媒体时间操作函数。
但是占用资源比较厉害，斟酌使用吧。
返回值都是dword类型，就是都是cardinal类型的。
直接相减就是像差的毫秒数。
但是占用资源比较厉害，斟酌使用吧。
返回值都是dword类型，就是都是cardinal类型的。
直接相减就是像差的毫秒数。
bookbull 2002-12-28
- 打赏
- 举报
可以讲一讲你的详细用法，也好为你想个办法。
如果只是求时间差，为什么不用Gettickcount？
将time1、time2定义为长整型：
time1,time2:Longint;
time2:= Gettickcount;
......（Do something）
time1:=Gettickcount;
interval:=time2-time1;
应该就是毫秒级的时间差了。
如果只是求时间差，为什么不用Gettickcount？
将time1、time2定义为长整型：
time1,time2:Longint;
time2:= Gettickcount;
......（Do something）
time1:=Gettickcount;
interval:=time2-time1;
应该就是毫秒级的时间差了。
我不懂电脑 2002-12-28
- 打赏
- 举报
time()
killlaoli 2002-12-28
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
interval: TDatetime;
hour, min, sec, msec: word;
begin
datetimepicker2.DateTime := now;
interval := datetimepicker2.DateTime - datetimepicker1.DateTime;
DecodeTime(interval, hour, min, sec, msec);
label1.Caption := inttostr(hour) + ' hour ' + inttostr(min) + ' min ' +
inttostr(sec) + ' sec ' + inttostr(msec) + ' msec '
end;
var
interval: TDatetime;
hour, min, sec, msec: word;
begin
datetimepicker2.DateTime := now;
interval := datetimepicker2.DateTime - datetimepicker1.DateTime;
DecodeTime(interval, hour, min, sec, msec);
label1.Caption := inttostr(hour) + ' hour ' + inttostr(min) + ' min ' +
inttostr(sec) + ' sec ' + inttostr(msec) + ' msec '
end;
stanely 2002-12-28
- 打赏
- 举报
timegettime
nzh517 2002-12-27
- 打赏
- 举报
取时间的时候用GetLocalTime
