Access　速度大比拼 - Office中国论坛/Access中国论坛

以下是引用海狸先生在2005-8-14 12:55:00的发言：

1、Private Declare Function GetTickCount Lib "kernel32" () As Long

２、Private Declare Function timeGetTime Lib "winmm.dll" () As Long

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

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

以上三个都可以，但是１和２据资料所说，只能精确到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等。