Sadržaj
Opis mjerača vremena
Vraća pojedinačnu vrijednost koja predstavlja broj sekundi koje su protekle od ponoći.
Primjeri jednostavnih mjerača vremena
Evo jednostavnog primjera mjerača vremena:
| 123 | Pod timer_Primjer ()MsgBox TimerKraj podm |
Sintaksa mjerača vremena
U VBA Editoru sintaksa za funkciju Timer.
| 1 | Mjerač vremena |
Funkcija Timer ne sadrži argumente:
Primjeri Excel VBA Timer funkcije
Koristeći sljedeći primjer koda, pokušajte usporediti sec1 i sec2.
Tada lako možemo saznati značenje funkcije Timer.
| 123456789101112131415161718192021222324252627 | Pod timer_Primjer1 ()Dim sec1 As SingleDim sec2 As Longsec1 = Mjerač vremenasec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Kraj podmFunkcija GetSecondsFromMidnight () As LongPriguši dt kao datumDim h Kao cijeli brojDim m Kao cijeli brojDim s Kao cijeli brojdt = Sadah = Sat (dt)m = minuta (dt)s = sekunda (dt)min = h * 60 + msekunde = min * 60 + sGetSecondsFromMidnight = sekZavršna funkcija |
Pomoću funkcije Timer možemo mjeriti koliko bi vremena trebalo da se pokrene dio VBA koda.
| 1234567891011121314151617 | Pod timer_Primjer2 ()Zatamni startSec kao singlZatamni endSec kao singlDim i As LongstartSec = Mjerač vremena'Početak testiranja VBA kodaZa i = 1 do 500000DoEventsSljedeći i'Kraj VBA koda za testiranjeendSec = Mjerač vremenaMsgBox "Bilo je potrebno" & CStr (endSec - startSec) & "s".Kraj podm |
