MyTetra Share
Делитесь знаниями!
Как засечь время выполнения прцоедуры какой-нибудь?
Время создания: 31.07.2019 22:37
Текстовые метки: Таймер,timer
Раздел: Разные закладки - VBA
Запись: xintrea/mytetra_db_adgaver_new/master/base/152069626567g8dbqi8j/text.html на raw.githubusercontent.com

Как засечь время выполнения процедуры какой-нибудь?


Вот так:


dim i as long

i=timer

runsp

msgbox timer-i


Или так:


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

Sub SkokaVremya()

MsgBox timer 'время прошедшее с полуночи в сек

MsgBox timeGetTime 'время прошедшее с момента запуска винды в мсек

End Sub



Так же в этом разделе:
 
MyTetra Share v.0.62
Яндекс индекс цитирования