Вопрос по Timer и измерение времени отработки операции...

[Nataliak]

Есть база. В ней я листаю документы по клавишам (точнее программа на VB6 смотрит базу на Lotus Domino сервере). Все работает, но... мне нужно произвести замеры времени реакции системы - сколько времени тратится на ту или иную операцию, рузультат выводить с статус ную строку.
Что-то типа: затрачено 00:01:03 (часы:минуты:секунды).
Поскажите как правильно использовать и что? Timer?

[A.A.Z.]

Ну, например:

Код: Выделить всё

Dim Vremya As Date

Private Sub Command1_Click()
Timer1.Enabled = True
DoEvents
Timer1.Interval = 1000
DoEvents
DoSomeMethods
DoEvents
DoSomeMethods
DoEvents
Timer1.Enabled = False
Debug.Print Vremya
End Sub

Private Sub Timer1_Timer()
Vremya = DateAdd("s", 1, Vremya)
DoEvents
End Sub

Sub DoSomeMethods()
For i@ = 0 To 999999@
DoEvents
Next
End Sub


[Nataliak]

Спасибо!!!

Получается в секундах. А более точно - в милисекундах, есть способ?
Оказалось, что нужно более точно

[A.A.Z.]

Тогда придется использовать GetTickCount.

Код: Выделить всё

Private Declare Function GetTickCount& Lib "kernel32" ()

Private Sub Command1_Click()
Dim T&
DoEvents
T = GetTickCount
DoSomeMethods
Debug.Print GetTickCount - T
End Sub

Sub DoSomeMethods()
For I@ = 0 To 999999@
DoEvents
Next
End Sub


Результат получится в миллисекундах.