Obliczanie różnicy czasu w formacie czasu

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:

 

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.