Inhaltsverzeichnis
Timer-Beschreibung
Gibt einen Single-Wert zurück, der die Anzahl der seit Mitternacht verstrichenen Sekunden darstellt.
Einfache Timer-Beispiele
Hier ist ein einfaches Timer-Beispiel:
123 | Sub Timer_Example()MsgBox-TimerEnd Sub |
Timer-Syntax
Im VBA-Editor die Syntax für die Timer-Funktion.
1 | Timer |
Die Timer-Funktion enthält keine Argumente:
Beispiele für Excel VBA-Timer-Funktion
Versuchen Sie mit dem folgenden Codebeispiel, sec1 und sec2 zu vergleichen.
Dann können wir leicht die Bedeutung der Timer-Funktion kennen.
123456789101112131415161718192021222324252627 | Sub Timer_Example1()Dim sec1 als SingleDim sek2 so langsec1 = Timersec2 = GetSecondsFromMidnightMsgBox "sec1 = " & sec1 & vbCrLf & _"sec2 = " & sec2End SubFunktion GetSecondsFromMidnight() As LongDim dt als DatumDim h As IntegerDim m As IntegerDim s As Integerdt = Jetzth = Stunde(dt)m = Minute(dt)s = Sekunde (dt)min = h * 60 + mSek = Min * 60 + SekGetSecondsFromMidnight = SekEndfunktion |
Mit der Timer-Funktion können wir messen, wie lange es dauern würde, einen Abschnitt des VBA-Codes auszuführen.
1234567891011121314151617 | Sub Timer_Example2()Dim startSec As SingleDim endSec As SingleDim ich so langstartSec = Timer'Start des VBA-Codes zum TestenFür i = 1 bis 500000DoEventsAls nächstes'Ende des VBA-Codes zum TestenendSec = TimerMsgBox "Es dauerte" & CStr(endSec - startSec) & "s."End Sub |