VBA подскажите. как засечь время рабоыт функции

igorek1

Функцию написал сам, т.е. она не стандартная.
Нужно узнать, за какое время она срабатывает.
Это время заметно меньше секунды, поэтому функция Time не помогает (начало и конец работы исследуемой функции случается в одну и ту же секунду). Писать цикл не хочется, хочется найти более стандартный способ.

0000

Да Time то ж можно обойтись - выполни просто функцию в цикле n-е число раз. Искомая величина время всего цикла / n.
Еще можно GetTickCount импортнуть.

Vladislav177Rus

Например, так:

Private Declare Function timeGetTime Lib "winmm.dll"  As Long



Private Sub CommandButton1_Click

    t1 = timeGetTime

    For i = 1 To 100000000: Next

    MsgBox timeGetTime - t1

End Sub

igorek1

timeGetTime

Excel'ный VBA не знает такой функции...

Trofimovyoa

timeGetTime
Excel'ный VBA не знает такой функции...

даже если задекларировать ее импорт?

Private Declare Function timeGetTime Lib "winmm.dll"  As Long

igorek1

Да.
Действительно такая декларация помогла

Извиняюсь за дезинформацию.
А в чем она выдает результат? В тясячных секунды?

Trofimovyoa

да, в мс

Оставить комментарий