|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function QueryPerformanceCounter Lib "kernel32 " (lpPerformanceCount As Any) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32 " (lpFrequency As Any) As Long
Private Declare Sub Sleep Lib "KERNEL32.dll" (ByVal dwMilliseconds As Long)
Sub timeCount()
Dim curFrequency As Currency
Dim curStart As Currency
Dim curEnd As Currency
Dim delayms%
delayms = 66
QueryPerformanceFrequency curFrequency
QueryPerformanceCounter curStart '精度100ns
Sleep delayms
QueryPerformanceCounter curEnd
MsgBox "QueryPerformanceCounter用时: " & (curEnd - curStart) / curFrequency * 1000 & "ms "
curStart = Timer '精度55ms
Sleep delayms
MsgBox "Timer计时: " & (Timer - curStart) * 1000 & "毫秒"
curStart = GetTickCount '精度55ms
Sleep delayms
MsgBox "GetTickCount计时: " & (GetTickCount - curStart) & "毫秒"
curStart = timeGetTime '精度10ms
Sleep delayms
MsgBox "timeGetTime计时: " & (timeGetTime - curStart) & "毫秒"
End Sub
|
评分
-
1
查看全部评分
-
|