Тестирование кода VBA

Что считается наиболее точным способом тестирования кода VBA (в моем случае я тестирую код в Excel)? Существуют ли какие-либо другие методы для тестирования кода, кроме двух нижеприведенных, и если да, то каковы плюсы и минусы этого метода?

Вот два популярных метода.

Первый: Таймер

Sub TimerBenchmark()

Dim benchmark As Double
benchmark = Timer

'Do your code here

MsgBox Timer - benchmark

End Sub

И Отметьте (который я считаю наиболее точным):

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub TickBenchmark()

Dim Start As Long
Dim Finish As Long

Start = GetTickCount()

'Do your code here

Finish = GetTickCount()
MsgBox CStr((Finish - Start) / 1000)

End Sub
13
задан aevanko 18 August 2011 в 09:18
поделиться