Sub MySub
Dim tStart As Date, tFinish As Date
tStart = Now
.....
tFinish = Now
MsgBox "Time: " & Format(tFinish - tStart, "h:mm:ss")
End Sub
Время выполнения макроса
Всем привет Дела в VBA Хочу в процедурку вставить таймер, чтобы по окончании выполнения макроса вылетал alert "Затраченное время...мин...сек"
Или что-то в этом роде
Или что-то в этом роде
Цитата:
Originally posted by WildAn
Всем привет Дела в VBA Хочу в процедурку вставить таймер, чтобы по окончании выполнения макроса вылетал alert "Затраченное время...мин...сек"
Или что-то в этом роде
Всем привет Дела в VBA Хочу в процедурку вставить таймер, чтобы по окончании выполнения макроса вылетал alert "Затраченное время...мин...сек"
Или что-то в этом роде
Код:
можно еще в милисек. - это бывает нужно когда надо оценить скорость выполнения кусков кода, разница которых может быть небольшая в милисек, но при многократном повторении сам понимешь до чего вырастет
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
' в начале кода
lTime = timeGetTime
....
тут код
....
MsgBox timeGetTime - lTime
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
' в начале кода
lTime = timeGetTime
....
тут код
....
MsgBox timeGetTime - lTime
Цитата:
Originally posted by SergeySV
можно еще в милисек. - это бывает нужно когда надо оценить скорость выполнения кусков кода, разница которых может быть небольшая в милисек, но при многократном повторении сам понимешь до чего вырастет
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
' в начале кода
lTime = timeGetTime
....
тут код
....
MsgBox timeGetTime - lTime
можно еще в милисек. - это бывает нужно когда надо оценить скорость выполнения кусков кода, разница которых может быть небольшая в милисек, но при многократном повторении сам понимешь до чего вырастет
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
' в начале кода
lTime = timeGetTime
....
тут код
....
MsgBox timeGetTime - lTime
А можно и без API:
Format(tFinish - tStart, "h:mm:ss.000")