vb中怎样实现毫秒以下的时间差计算？如：t1-t2=0.00005s

来源：百度知道 编辑：UC知道 时间：2024/05/09 21:07:58
vb中怎样编程实现毫秒以下的时间差计算？如：t1-t2=0.00005s
好像vb中只能是整数秒的时间差计算，能否介绍简单一点的算法实现毫秒以下的时间差计算？

我有一个现成的作品.是一个不错的类

HighPerformanceTimmer.cls
用到以下的API

以下是小部份
'2007/3/31
'高性能计时器
'-----------------------------------------
Public Enum qcScaleLevel
qcMicrosecond = 0 '微秒
qcMillisecond = 1 '毫秒
qcSecond = 2 '秒
End Enum

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

加分的话,我给一个给你.

可以用Windows API的timeGetTime函数，此一函数会传回Windows开机以来所经过的时间，时间单位是1/1000秒， 举例来说， 开机经过 2 分钟， 则传回值等于 2*60*1000，timeGetTime的优点是时间可以精确到1/1000 秒，所以可以用来解决上述的问题，细节如下：
1. API 的声明：
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
注：如果以上的声明放在「一般模块」底下， 应将 Declare 之前的 Private 保留字去掉。