VBA -timerfunktion

Timer Beskrivelse

Returnerer en enkelt værdi, der repræsenterer det antal sekunder, der er gået siden midnat.

Simple timer -eksempler

Her er et simpelt timer -eksempel:

123	Sub Timer_Example ()MsgBox -timerAfslut Sub

Timer syntaks

I VBA Editor, syntaksen for Timer -funktionen.

1

Timer

Timer -funktionen indeholder ingen argumenter:

Eksempler på Excel VBA -timerfunktion

Prøv at sammenligne sec1 og sec2 ved hjælp af følgende kodeeksempel.

Derefter kan vi let kende betydningen af ​​Timer -funktionen.

123456789101112131415161718192021222324252627

Subtimer_eksempel1 ()Dim sec1 Som singleDim sec2 Så længesek1 = Timersec2 = GetSecondsFromMidnightMsgBox "sec1 =" & sec1 & vbCrLf & _"sec2 =" & sec2Afslut SubFunktion GetSecondsFromMidnight () så længeDim dt As DateDim h Som heltalDim m Som heltalDim s Som heltaldt = Nuh = Time (dt)m = minut (dt)s = Andet (dt)minutter = h * 60 + msek = min * 60 + sGetSecondsFromMidnight = sekAfslut funktion

Ved hjælp af Timer -funktionen kan vi måle, hvor lang tid det ville tage at køre et afsnit af VBA -koden.

1234567891011121314151617

Subtimer_eksempel2 ()Dim startSec som singleDim endSec As SingleDim i så længestartSec = Timer'Start af VBA -kode til testFor i = 1 Til 500000DoEventsNæste i'Afslutning af VBA -kode til testendSec = TimerMsgBox "Det tog" & CStr (endSec - startSec) & "s."Afslut Sub