Gdy chce się poinformować użytkownika ile czasu zajęło wykonanie kodu możemy użyć poniższego kodu.

Zmienną StartTime deklarujemy zawsze na początku kodu, zmienną EndTime na końcu kodu. Metoda Application.Wait została użyta tylko po to, aby w tym krótkim kodzie pokazać różnicę czasu.

Private Sub TimeDifference()
'https://vbaf1.com/date-time/calculate-difference-between-two-times/
'https://stackoverflow.com/questions/8330838/vba-date-as-integer
'https://docs.microsoft.com/en-us/office/vba/api/excel.application.wait

Dim StartTime As Date, StopTime As Date

StartTime = Format(Now, "hh:mm:ss")
Application.Wait (Now + TimeValue("0:00:10")) 'only sub extension
StopTime = Format(Now, "hh:mm:ss")

Debug.Print Format(CDbl(StartTime) - CDbl(StopTime), "hh:mm:ss")

End Sub

Wynikiem jest: