Как в VBA узнать длительность операции в миллисекундах?

@AndreA SN · Регистрация: 26.08.2011

Выполняю ряд функций в основной функции, которая в свою очередь выполняется в цикле заголовочной функции.
Длительность выполнения заголовочной функции слишком высокая.
Замерил время выполнения всех основных функций в заголовочной - выловил ту самую основную, которая и тормозит процесс. Но когда замерил время выполнения функций, выполняющихся в тормозной основной функции - дебугер выдал мне нолики.

как измеряю время:

Visual Basic

нач = Time()
... выполняем функцию
кон = Time()
рез = кон - нач
нач = кон
Debug.Print "Время выполнения функции " & рез

Вообщем когда миллисекунды за один цикл итерации складываются в 1000 итераций - это уже существенные минуты
Но я измерить эти миллисекунды не могу. Как?

Добавлено через 8 минут
Вот содержимое окошка immediate:

Этап 0 0
Этап 1 1,15740740740389E-05
Этап 2 6,94444444444553E-05
Этап 3 0
Этап 4 0
Этап 5 0
Этап 6 1,15740740740944E-05
Этап 7 1,15740740740389E-05

А это время выполнения отельных функций во 2 этапе

Начало 0
Создание_массивов_записи_БД 0
Наполнение_массивов_записи_БД 0
Обработка_пустышек_массивов_записи_БД 0
Запись_данных 0

@Catstail · 28.05.2016, 22:31

AndreA SN, вместо Time лучше использовать API-функцию GetTickCount

@AndreA SN · 28.05.2016, 23:40 **[ТС]**

И вот тут я завис в ступоре полном))) как?)))

@Catstail · 29.05.2016, 08:22

Вот пример кода с иcпользованием GetTickCount - замер времени на сортировку массива:

Visual Basic

Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Sub Test()
 
Dim X(1 To 4000) As Integer
 
    Randomize
    
    For i% = 1 To 4000
        X(i%) = 10 * Rnd()
    Next i%
 
    t_Start& = GetTickCount
 
    QuickSort X(), 1, 4000
 
    t_End& = GetTickCount
    
    Debug.Print t_End& - t_Start&
 
End Sub

Функция GetTickCount возвращает число миллисекунд, прошедшее после загрузки ОС, и позволяет замерить временной интервал с точностью до 10 миллисек. Достаточно?

@tvitaly1 · 02.07.2017, 12:07

В Excel 2010 API GetTickCount в VBA не объявляется, как решить такую проблему?

Добавлено через 59 минут
Нашел способ, в Excel 2010 API функция объявляется так:

Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long

@Catstail · 02.07.2017, 12:41

Сообщение от tvitaly1

Нашел способ, в Excel 2010 API функция объявляется так:

- чем этот способ отличается от того, что привел я? А, заметил PtrSafe.

@tvitaly1 · 02.07.2017, 14:00

По большому счету не чем, но без PtrSafe в 2010 функция не объявится, а в 2003 с PtrSafe так же не выполнится.

Добавлено через 1 час 15 минут
Ура, есть способ, что бы работала на разных версиях, объявляем так:

#If VBA7 Then
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
#Else
Private Declare Function GetTickCount Lib "kernel32" () As Long
#End If

И сохраняем файл в формате .xls

@Hugo121 · 02.07.2017, 14:26

Сообщение от tvitaly1

без PtrSafe в 2010 функция не объявится

- а вот у меня объявится.
Не надо делать таких безаппеляционных заявлений! Народ только путаете

@tvitaly1 · 02.07.2017, 15:15

Разрядность другая машины, или 2010 для другой разрядности, я так думаю, в любом случае переключатель универсален в файле .xls

Dragokas · 02.07.2017, 18:14

Через QueryPerformanceCounter замер будет более точным.

Можете посмотреть здесь пример. Или прямо так и подключить в виде класса.

Для x64, возможно, тоже потребуется изменить декларацию на PtrSafe

@tvitaly1 · 02.07.2017, 18:28

Переход по ссылке дает ошибку.

Dragokas · 02.07.2017, 19:21

Ой, простите, не то прикрепил. Вот правильная: Готовые решения и полезные коды на Visual Basic 6.0

@tvitaly1 · 02.07.2017, 19:28

Спасибо!

@tvitaly1 81 / 4 / 2 Регистрация: 29.04.2015 Сообщений: 117
	02.07.2017, 19:28	13
	Спасибо! 0

@Catstail Модератор 27638 / 14642 / 2879 Регистрация: 12.02.2012 Сообщений: 24,030 Записей в блоге: 4
	28.05.2016, 22:31	2
	AndreA SN, вместо Time лучше использовать API-функцию GetTickCount 0

@AndreA SN 1009 / 113 / 2 Регистрация: 26.08.2011 Сообщений: 1,076 Записей в блоге: 2
	28.05.2016, 23:40 [ТС]	3
	И вот тут я завис в ступоре полном))) как?))) 0

@tvitaly1 81 / 4 / 2 Регистрация: 29.04.2015 Сообщений: 117
	02.07.2017, 12:07	5
	В Excel 2010 API GetTickCount в VBA не объявляется, как решить такую проблему? Добавлено через 59 минут Нашел способ, в Excel 2010 API функция объявляется так: Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long 0

@Catstail Модератор 27638 / 14642 / 2879 Регистрация: 12.02.2012 Сообщений: 24,030 Записей в блоге: 4
	02.07.2017, 12:41	6
	Сообщение от tvitaly1 Нашел способ, в Excel 2010 API функция объявляется так: - чем этот способ отличается от того, что привел я? А, заметил PtrSafe. 0

@tvitaly1 81 / 4 / 2 Регистрация: 29.04.2015 Сообщений: 117
	02.07.2017, 14:00	7
	По большому счету не чем, но без PtrSafe в 2010 функция не объявится, а в 2003 с PtrSafe так же не выполнится. Добавлено через 1 час 15 минут Ура, есть способ, что бы работала на разных версиях, объявляем так: #If VBA7 Then Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long #Else Private Declare Function GetTickCount Lib "kernel32" () As Long #End If И сохраняем файл в формате .xls 0

@Hugo121 6811 / 2754 / 518 Регистрация: 19.10.2012 Сообщений: 8,408
	02.07.2017, 14:26	8
	Сообщение от tvitaly1 без PtrSafe в 2010 функция не объявится - а вот у меня объявится. Не надо делать таких безаппеляционных заявлений! Народ только путаете 0

@tvitaly1 81 / 4 / 2 Регистрация: 29.04.2015 Сообщений: 117
	02.07.2017, 15:15	9
	Разрядность другая машины, или 2010 для другой разрядности, я так думаю, в любом случае переключатель универсален в файле .xls 0

Dragokas 17569 / 7413 / 881 Регистрация: 25.12.2011 Сообщений: 11,199 Записей в блоге: 16
	02.07.2017, 18:14	10
	Через QueryPerformanceCounter замер будет более точным. Можете посмотреть здесь пример. Или прямо так и подключить в виде класса. Для x64, возможно, тоже потребуется изменить декларацию на PtrSafe 0

@tvitaly1 81 / 4 / 2 Регистрация: 29.04.2015 Сообщений: 117
	02.07.2017, 18:28	11
	Переход по ссылке дает ошибку. 0

Dragokas 17569 / 7413 / 881 Регистрация: 25.12.2011 Сообщений: 11,199 Записей в блоге: 16
	02.07.2017, 19:21	12
	Ой, простите, не то прикрепил. Вот правильная: Готовые решения и полезные коды на Visual Basic 6.0 1

Опции темы

Как в VBA узнать длительность операции в миллисекундах?

Решение