Что-то типа: затрачено 00:01:03 (часы:минуты:секунды).
Поскажите как правильно использовать и что? Timer?

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
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
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6