关于1ms精度的计时延时器的基本测试

一般来说，在平时编程中，出于优化代码运行速度等需求，常需要测算时间，这就需要对相关计时函数的精度做一番了解，不能老是糊里糊涂混日子。下面的测试由此而来

　　首先，我们需要测出，常用的计时函数中哪个达到了1ms精度。先测GetTickCount
Visual Basic code?
1
2
3
4
5
6
    
   '声明：  
   Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long  
   '说明  
   用于获取自windows启动以来经历的时间长度（毫秒）  
   '返回值  
   Long，以毫秒为单位的windows运行时间

　　如果只100000次的话，因为工作量太小，一般会输出0。不过不用担心，我们逐步加大循环次数，多测几次就行了。注意循环次数的跨度不要太大了，可以200000,300000这样的依次增加。这样你会发现，到了某一次，比如说500000,输出值会突然从0跳到16左右。可见这个API的实际精度只有约16ms.
Visual Basic code?
1
2
3
4
5
6
7
8
9
10
    
   Private Sub DoTestGetTickCount()  
       Dim lTime1&, lTime2&  
       Dim i&    
       lTime1 = GetTickCount  
       For i = 1 To 400000  
         
       Next i  
       lTime2 = GetTickCount  
       Debug.Print lTime2 - lTime1  
   End Sub

　　写到这里时，可能已经有初学者急着要知道1ms精度的函数在哪了，别急，timeGetTime就是了：
Visual Basic code?
1
    
   Private Declare Function timeGetTime Lib "winmm.dll" () As Long

　　测试代码几乎一样。测试结果为，在本人机器上，循环次数在100000时输出值就约为2-3了，次数增加1倍到200000的话，结果为4-5.如果减小到50000，则是1-2.可见，这个计时函数的精度为1ms.
Visual Basic code?
1
2
3
4
5
6
7
8
9
10
    
   Private Sub DoTestTimeGetTime()  
       Dim lTime1&, lTime2&  
       Dim i&  
       lTime1 = timeGetTime  
       For i = 1 To 100000  
         
       Next i  
       lTime2 = timeGetTime  
       Debug.Print lTime2 - lTime1  
   End Sub

　　接下来，因为确认了timeGetTime的精度可以达到1ms,我们可以放心测算延时函数sleep的实际精度了，先公布结果，1ms.
Visual Basic code?
1
2
3
4
5
6
7
8
9
    
   Private Sub DoTestSleep()  
       Dim lTime1&, lTime2&  
       Dim i&  
       lTime1 = timeGetTime  
     
       Sleep 1 'delay 1 ms  
       lTime2 = timeGetTime  
       Debug.Print lTime2 - lTime1  
   End Sub

　　最后补充说明一下，获取UTC时间的GetSystemTime和相应的SystemTimeToFileTime，实际精度也是1ms。