Функция API, которая помогает измерять промежутки времени в миллисекундах. Можно использовать для отладки БД в целях повышения ее быстродействия
Функция API, которая помогает измерять промежутки времени в миллисекундах. Можно использовать для отладки БД в целях повышения ее быстродействия
Ниже представлен код, который описывает представление функции timeGetTime и , ниже, как ее использовать при замере быстродействия функции или процедуры...
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '---------------------------------------------------------------------------- Sub fncTest() Dim tmStart As Long
tmStart = timeGetTime() '---------------- 'указание имени функции (с параметрами или без них) ' или выполнение процедуры '---------------- MsgBox "Время выполнения: " & (timeGetTime() - tmStart) & " msec." & vbCr & _ "или" & ((timeGetTime() - tmStart) / 1000) & " sec." End Sub