Innholdsfortegnelse
Timer Beskrivelse
Returnerer en enkeltverdi som representerer antall sekunder som har gått siden midnatt.
Enkle timer -eksempler
Her er et enkelt Timer -eksempel:
123 | Sub Timer_Example ()MsgBox TimerSlutt Sub |
Timer syntaks
I VBA Editor, syntaksen for Timer -funksjonen.
1 | Timer |
Timer -funksjonen inneholder ingen argumenter:
Eksempler på Excel VBA -timerfunksjon
Prøv å sammenligne sek1 og sek2 ved å bruke følgende kodeeksempel.
Da kan vi enkelt kjenne betydningen av timerfunksjonen.
123456789101112131415161718192021222324252627 | Sub Timer_Example1 ()Dim sec1 Som singelDim sec2 Så lengesek1 = Timersec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Slutt SubFunksjon GetSecondsFromMidnight () så lengeDim dt As DateDim h Som heltallDim m Som heltallDim s As Integerdt = nåh = Time (dt)m = minutt (dt)s = Andre (dt)minutter = t * 60 + msekunder = minutter * 60 + sGetSecondsFromMidnight = sekSluttfunksjon |
Ved å bruke Timer -funksjonen kan vi måle hvor lang tid det ville ta å kjøre en del av VBA -koden.
1234567891011121314151617 | Sub Timer_Example2 ()Dim startSec As SingleDim endSec As SingleDim i As LongstartSec = Timer'Start av VBA -kode for å testeFor i = 1 Til 500000DoEventsNeste jeg'Slutt på VBA -koden for å testeendSec = TimerMsgBox "Det tok" og CStr (endSec - startSec) og "s."Slutt Sub |