程式執行績效

[mini]

這裡用到 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)

至於這個結果能做什麼？

...待續 ^^