Delphi 时间函数：关于时间精确的几个函数和方法

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

//取毫秒级时间精度(方法一)： var 　　t1,t2:int64; 　　r1:int64; begin 　　t1:=GetTickCount;//获取开始计数 WINDOWS API 　　sleep(1000);{do...}//执行要计时的代码 　　t2:=GetTickCount;//获取结束计数值 　　r1:=t2-t1;//取得计时时间，单位毫秒(ms) 　　ShowMessage(inttostr(r1)); end;   //取毫秒级时间精度(方法二)： //use DateUtils;//引用DateUtils单位 var 　　t1,t2:tdatetime; 　　r1:int64; begin 　　t1:=now();//获取开始计时时间 　　sleep(1000);{do...}//执行要计时的代码 　　t2:=now();//获取结束计时时间 　　r1:=SecondsBetween(t2,t1);//取得计时时间，单位秒(s) 　　r1:=MilliSecondsBetween(t2,t1);//取得计时时间，单位毫秒(ms) 　　ShowMessage(inttostr(r1)); end;   //注：以上两种方式经本人测试好像只能产生0.01秒的计时精度   //取系统级时间精度： var 　　c1:int64; 　　t1,t2:int64; 　　r1:double; begin 　　QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数) 　　QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值 　　sleep(1000);{do...}//执行要计时的代码 　　QueryPerformanceCounter(t2);//获取结束计数值 　　r1:=(t2-t1)/c1;//取得计时时间，单位秒(s) 　　r1:=(t2-t1)/c1*1000;//取得计时时间，单位毫秒(ms) 　　r1:=(t2-t1)/c1*1000000;//取得计时时间，单位微秒 　　ShowMessage(floattostr(r1)); end;

　

创建时间 ：2019.07.30　　更新时间：