這裡用到 WinAPI 函數
以下是
VB 宣告
Public Declare Function GetTickCount Lib "kernel32" () As Long
作用是 "計算Windows從啟動後所運行的總時間" 單位是1豪秒 (1ms)
1s = 1000ms = 1000000μs = 1000000000ns
接著是實作
假設我們要得知 S() 函數(指令、運算)
所要花費的時間
Function ReviseTimerTickNum(Optional ByRef ReviseTimerTickMilliSec As Long) As Long
Dim LongTick As Long
LongTick = GetTickCount
Do
Call S()
DoEvents
ReviseTimerTickNum = ReviseTimerTickNum + 1
ReviseTimerTickMilliSec = GetTickCount - LongTick
Loop Until ReviseTimerTickMilliSec > 0
End Function
'得知做多少次(S+DoEvents)會多 ReviseTimerTickMilliSec 豪秒
'得知多 ReviseTimerTickMilliSec 豪秒需做ReviseTimerTickNum次
注意 ReviseTimerTickMilliSec 通常會大於 1 (從1.xx~x.xx)
至於這個結果能做什麼？
...待續 ^^