[转]vba获取时间毫秒数的API

时　间:2013-09-19 09:06:26
作　者:金宇   ID：43  城市：江阴
摘　要:vba获取时间毫秒数的API
正　文:

由于在实际过程中需要获取一个计算过程经过的毫秒数，但系统自带的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
上面三句代码网友可以更换成自己实际计算过程的代码。