Inhoudsopgave
Timerbeschrijving:
Retourneert een enkele waarde die het aantal seconden vertegenwoordigt dat is verstreken sinds middernacht.
Eenvoudige timervoorbeelden
Hier is een eenvoudig voorbeeld van een timer:
123 | Subtimer_Example()MsgBox-timerEinde sub |
Timersyntaxis
In de VBA-editor, de syntaxis voor de timerfunctie.
1 | Timer |
De functie Timer bevat geen argumenten:
Voorbeelden van Excel VBA Timer-functie
Probeer aan de hand van het volgende codevoorbeeld sec1 en sec2 te vergelijken.
Dan kunnen we gemakkelijk de betekenis van de timerfunctie kennen.
123456789101112131415161718192021222324252627 | Subtimer_Example1()Dim sec1 Als SingleDim sec2 zo langsec1 = Timersec2 = GetSecondsFromMidnightMsgBox "sec1 = " & sec1 & vbCrLf & _"sec2 = " & sec2Einde subFunctie GetSecondsFromMidnight() As LongDim dt als datumDim h als geheel getalDim m als geheel getalDim s als geheel getaldt = Nuh = Uur(dt)m = Minuut (dt)s = Tweede (dt)min = uur * 60 + mseconden = minuten * 60 + sGetSecondsFromMidnight = secondenFunctie beëindigen |
Met behulp van de timerfunctie kunnen we meten hoe lang het zou duren om een gedeelte van de VBA-code uit te voeren.
1234567891011121314151617 | Subtimer_Example2()Dim startSec As SingleDim endSec As SingleDim ik zo langstartSec = Timer'Begin van VBA-code om te testen'Voor ik = 1 tot 500000DoEventsvolgende i'Einde van VBA-code om te testen'endSec = TimerMsgBox "Het duurde " & CStr(endSec - startSec) & "s."Einde sub |