你如何測試VBA代碼的運行時間？在VBA中是否有代碼可以包裝一個函數，讓我知道它運行的時間，以便我可以比較函數的不同運行時間？
3 回答
慕田峪7331174
TA貢獻1828條經驗 獲得超13個贊
除非你的功能很慢，否則你需要一個非常高分辨率的計時器。我所知道的最準確的是QueryPerformanceCounter。谷歌更多信息。嘗試推下到一個類，把它CTimer說，那么你可以讓一個實例全球某處，只是打電話.StartCounter和.TimeElapsed
Option ExplicitPrivate Type LARGE_INTEGER lowpart As Long highpart As LongEnd TypePrivate Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As LongPrivate Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As LongPrivate m_CounterStart As LARGE_INTEGERPrivate m_CounterEnd As LARGE_INTEGERPrivate m_crFrequency As DoublePrivate Const TWO_32 = 4294967296# ' = 256# * 256# * 256# * 256#Private Function LI2Double(LI As LARGE_INTEGER) As DoubleDim Low As Double Low = LI.lowpart If Low < 0 Then Low = Low + TWO_32 End If LI2Double = LI.highpart * TWO_32 + LowEnd FunctionPrivate Sub Class_Initialize()Dim PerfFrequency As LARGE_INTEGER QueryPerformanceFrequency PerfFrequency m_crFrequency = LI2Double(PerfFrequency)End SubPublic Sub StartCounter() QueryPerformanceCounter m_CounterStartEnd SubProperty Get TimeElapsed() As DoubleDim crStart As DoubleDim crStop As Double QueryPerformanceCounter m_CounterEnd crStart = LI2Double(m_CounterStart) crStop = LI2Double(m_CounterEnd) TimeElapsed = 1000# * (crStop - crStart) / m_crFrequencyEnd Property
catspeake
TA貢獻1111條經驗 獲得超0個贊
VBA中的定時器功能為您提供從午夜到1/100秒的經過秒數。
Dim t as single
t = Timer
'code
MsgBox Timer - t
添加回答
舉報
0/150
提交
取消