由于在实际过程中需要获取一个计算过程经过的毫秒数,但系统自带的now 或者Timer函数都只能获取到秒,于是通过度娘搜索了一下,找到一个相关的API,使用Windows API的winmm.dll其中的timeGetTime 可以获得毫秒数,这个值是从开机到现在的毫秒数,可以在access新建个窗体,窗体上放一个名称为btnTest的按钮进行测试,代码如下。
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '取已经逝去的毫秒数
Private Sub btnTest_Click()
Dim StartMS As Long
Dim EndMS As Long
Dim MS As Long
StartMS = timeGetTime() '开始毫秒数
While timeGetTime < StartMS + 200 '循环等待
DoEvents '转让控制权,以便让操作系统处理其它的事件
Wend
EndMS = timeGetTime() '结束毫秒
MS = EndMS - StartMS '取两者相差的毫秒数
MsgBox "毫秒数:" & MS
End Sub
While timeGetTime < StartMS + 200 '循环等待
DoEvents '转让控制权,以便让操作系统处理其它的事件
Wend
上面三句代码网友可以更换成自己实际计算过程的代码。