Время выполнения макроса...

[nikolai_P]

Поделитесь опытом, кто как анализирует время выполнения макроса!
Желательно с точностью до сотых)

[EducatedFool]

Sub test()
    t = Timer
    For i = 1 To 30000000: Next
    MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation
End Sub

[nikolai_P]

Спасибо

[viter.alex]

Если нужно уж совсем точно, то можно воспользоваться функциями API

Option Explicit

Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Public Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test()
  Dim tm As Long, tmu As Long, i As Long
  timeBeginPeriod 1 'Включаем отсчет времени
  Sleep 20
  tm = timeGetTime 'Запоминаем начальный момент
'Блок с нашими вычислениями
'--------------------------------------------------------
  For i = 1 To 300000000: Next i
'--------------------------------------------------------
  tmu = timeGetTime - tm 'Фиксируем разницу времени
  timeEndPeriod 1 'Выключаем отсчет времени
  MsgBox tmu / 1000 'Выводим результат измерения времени в секундах
End Sub

[EducatedFool]

Сообщение от viter.alex

Если нужно уж совсем точно, то можно воспользоваться функциями API

А что, в моём варианте получается менее точно?

Возьмём, для примера, такие варианты макросов:

Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Public Declare Function timeBeginPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Public Declare Function timeEndPeriod Lib "winmm.dll" (ByVal uPeriod As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub test()
  Dim tm As Long, tmu As Long
  timeBeginPeriod 1 'Включаем отсчет времени
  Sleep 20
  tm = timeGetTime 'Запоминаем начальный момент
  For i = 1 To 30000000: Next i
  tmu = timeGetTime - tm 'Фиксируем разницу времени
  timeEndPeriod 1 'Выключаем отсчет времени
  Debug.Print tmu / 1000  'Выводим результат измерения времени в секундах
End Sub

Sub test2()
    t = Timer
    For i = 1 To 30000000: Next
    Debug.Print Timer - t
End Sub

Твой код выдаёт 0,446
а мой - 0,453125

Смысл использовать WinAPI ?

[viter.alex]

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

…Смысл использовать WinAPI ?

Функция Timer работает только в пределах суток, т.к. выдает количество миллисекунд, прошедших с полуночи. API считает в процессорных тиках, поэтому заведомо точнее и независимее.

[valerij]

Проверил
EducatedFool 0,300713 сек
viter.alex 2,151
Кому верить?

[SAS888]

Чтобы не допустить возникновения возможной ошибки при работе макроса в момент перехода через 0 часов, действительно, лучше использовать API-функцию. Только, можно чуть проще:

Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub test3()
    t = GetTickCount
    For i = 1 To 30000000: Next
    MsgBox "Обработка данных продолжалась  " & (GetTickCount - t) / 1000 & " сек.", vbInformation
End Sub

А спорить о том, какая из миллисекунд точнее, по-моему, неправильно.
valerij А Вы попробуйте один и тот же тест (любой) запустить несколько раз... и сравните результаты.

[Intelligio]

SAS888 для x64 не подходит(
может кто еще предложить?

[Казанский]

Вот тема, где недавно сравнивали разные таймеры: http://planetaexcel.ru/forum/index.p...336&MID=385420

Intelligio, а Вам в поиск по PtrSafe.