Spisie treści
Opis timera
Zwraca Single wartość reprezentującą liczbę sekund, które upłynęły od północy.
Proste przykłady timera
Oto prosty przykład Timera:
123 | Podrzędny zegar_Przykład()Minutnik MsgBoxNapis końcowy |
Składnia timera
W edytorze VBA: składnia funkcji Timer.
1 | Regulator czasowy |
Funkcja Timer nie zawiera argumentów:
Przykłady funkcji zegara Excel VBA
Korzystając z poniższego przykładu kodu, spróbuj porównać sec1 i sec2.
Wtedy możemy łatwo poznać znaczenie funkcji Timer.
123456789101112131415161718192021222324252627 | Podzespół czasowy_Przykład1()Dim sec1 jako pojedynczyDim sec2 tak długosek1 = Zegarsec2 = GetSecondsFromMidnightMsgBox "sec1 = " & sec1 & vbCrLf & _„s2 = „ i sek2Napis końcowyFunkcja GetSecondsFromMidnight() As LongDim dt As DateDim h jako liczba całkowitaDim m jako liczba całkowitaDim s As Integerdt = Terazh = godzina (dt)m = minuta (dt)s = sekunda (dt)min = h * 60 + ms = min * 60 + sGetSecondsFromMidnight = sKoniec funkcji |
Korzystając z funkcji Timer, możemy zmierzyć, ile czasu zajęłoby uruchomienie sekcji kodu VBA.
1234567891011121314151617 | Podzespół czasowy_Przykład2()Dim startSec As SingleDim endSec jako pojedynczyPrzyciemnij i tak długostartSec = Timer' Początek kodu VBA do testowaniaDla i = 1 do 500000ZdarzeniaDalej ja„Koniec kodu VBA do przetestowania”endSec = TimerMsgBox "Zajęło " & CStr(endSec - startSec) & "s."Napis końcowy |