GetTickCount()和GetCurrentTime()都只精确到55ms(1个tick就是55ms)。如果要精确到毫秒，应该使用timeGetTime函数或QueryPerformanceCounter函数。具体例子可以参考QA001022 "VC++中使用高精度定时器"、QA001813 "如何在Windows实现准确的定时"和QA004842 "timeGetTime函数延时不准"。

操作系统: Win2000
编程工具: VB6
问题: 我利用timeGetTime函数，做了一个延时函数，如下：
Private Sub DelayTime(ByVal DelayNum As Long)
Dim StartTime As Double, TmpTime As Single

StartTime = timeGetTime
Do
TmpTime = timeGetTime
If TmpTime < StartTime Then StartTime = TmpTime
Loop Until (TmpTime - StartTime) >= DelayNum
End Sub

但是，延时不准！有时候有10几毫秒的误差！请问我的程序写的有问题吗？如何改正？
水平: 中级(王辉)

虽然timeGetTime返回值的单位是1ms，但实际上它的精度只有10ms左右。
如果想提高精度，可以使用QueryPerformanceCounter和QueryPerformanceFrequency。这两个函数不是在每个系统中都支持。对于支持它们的系统中，可以获得低于1ms的精度。Windows 内部有一个精度非常高的定时器, 精度在微秒级, 但不同的系统这个定时器的频率不同, 这个频率与硬件和操作系统都可能有关。利用 API 函数 QueryPerformanceFrequency 可以得到这个定时器的频率。利用 API 函数 QueryPerformanceCounter 可以得到定时器的当前值。根据要延时的时间和定时器的频率, 可以算出要延时的时间定时器经过的周期数。在循环里用 QueryPerformanceCounter 不停的读出定时器值, 一直到经过了指定周期数再结束循环, 就达到了高精度延时的目的。例如：

Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long

' DelayNum为延时的毫秒数
Private Sub DelayTime(ByVal DelayNum As Long)
Dim Ctr1, Ctr2, Freq As Currency
Dim Count As Double

If QueryPerformanceFrequency(Freq) Then
QueryPerformanceCounter Ctr1
Do
QueryPerformanceCounter Ctr2
Loop While (Ctr2 - Ctr1) / Freq * 1000 < DelayNum
Else
MsgBox "不支持高精度计数器!"
End If
End Sub

不过，Windows不是实时操作系统，如果任务太多，或者有其他中断请求，都可能导致程序运行时的延迟不精确，一般的Windows程序也可以接受。如果你对时间精度要求很高，一般只有使用Windows的实时扩展RTX，或者使用其他实时操作系统，如VXWorks等。