Wer VBA-Code optimieren möchte, braucht eine zuverlässige Methode zur Zeitmessung. Die VBA-Funktion Timer()<\/b> liefert die verstrichenen Sekunden seit Mitternacht – und damit ein einfaches, aber wirkungsvolles Werkzeug, um die Laufzeit von Prozeduren zu messen und verschiedene Implementierungen zu vergleichen. In diesem Artikel zeigen wir, wie Du Timer()<\/b> gezielt einsetzt und die Ergebnisse sinnvoll auswertest.<\/b><\/p>\n
Beispieldatenbank<\/h2>\n
Die Beispieldatenbank zu diesem Artikel trägt den Namen Timer.accdb<\/b>. Sie enthält ein Modul namens mdlTimer<\/b> mit allen Prozeduren und Funktionen aus diesem Artikel sowie eine Tabelle namens tblTestdaten<\/b> mit Testdatensätzen für die Performance-Vergleiche.<\/p>\nDie Timer()-Funktion<\/h2>\n
Die VBA-Funktion Timer()<\/b> gibt einen Single<\/b>-Wert zurück: die Anzahl der Sekunden seit Mitternacht. Auf Windows-Systemen liegt die Auflösung bei etwa zehn Millisekunden, was für die meisten Messungen ausreicht.<\/p>\n
Die einfachste Art, eine Laufzeit zu messen, kommt ohne jede Hilfsfunktion aus. Man speichert den Wert von Timer()<\/b> vor dem Code, führt den Code aus und gibt die Differenz danach direkt aus:<\/p>\n Das genügt für schnelle Stichproben im Direktbereich, aber auch, wenn man mal eben prüfen will, welche Prozedur im Ablauf etwa beim Öffnen eines Formulars wie viel Zeit in Anspruch nimmt.<\/p>\n Dann könnte man jede betroffene Prozedur mit diesen Anweisungen versehen – das Speichern des Ergebnisses von Timer() <\/b>bei Start landet gleich mit der ersten Anweisung in sngTimer<\/b>, und am Ende der Prozedur lassen wir das Ergebnis ausgeben, dann mit Angabe des Prozedurnamens.<\/p>\n So landen alle Ergebnisse übersichtlich im Direktbereich, wenn alle Prozeduren des Formulars ausgeführt worden sind. Außerdem kann man sich so einen Überblick verschaffen, welche Prozeduren überhaupt an einem solchen Vorgang beteiligt sind.<\/p>\n Timer()<\/b> setzt seinen Wert um Mitternacht auf null zurück. Läuft eine Messung über diesen Zeitpunkt hinweg, ergibt die Subtraktion einen negativen Wert. In der Praxis betrifft das nur sehr lang laufende Prozeduren. Wer auf Nummer sicher gehen will, prüft das Ergebnis auf ein negatives Vorzeichen und addiert dann 86400<\/b> (Sekunden pro Tag). Die Hilfsfunktion in Listing 2 erledigt das:<\/p>\n Der eigentliche Nutzen von Zeitmessungen liegt im direkten Vergleich zweier Implementierungen. Als Beispiel messen wir, welche Methode schneller die Anzahl der Datensätze in tblTestdaten<\/b> liefert: DCount()<\/b> oder ein Recordset mit RecordCount<\/b>.<\/p>\n Das folgende Listing zeigt die beiden Funktionen. Bei der Recordset-Variante öffnen wir die Tabelle mit dbOpenTable<\/b>:<\/p>\n Ein weiteres Listing zeigt die Vergleichsprozedur. Beide Varianten werden je zehnmal gemessen, jeweils Mittelwert und Minimum werden ausgegeben.Der Minimalwert gibt die Laufzeit unter optimalen Bedingungen an – ohne Störungen durch andere Prozesse. Der Mittelwert zeigt das typische Verhalten im Alltag:<\/p>\n Damit die Ergebnisse aussagekräftig sind, lohnen sich ein paar Grundregeln:<\/p>\n Die VBA-Funktion Timer()<\/b> erlaubt mit minimalem Aufwand belastbare Laufzeitmessungen. Schon drei Zeilen reichen für eine erste Messung. Mit der Hilfsfunktion TimerDauer()<\/b> und mehrfachen Durchläufen lassen sich auch Vergleiche zwischen verschiedenen Implementierungen zuverlässig durchführen.<\/p>\n Wer noch mehr Präzision benötigt, kann auf die Windows-API-Funktion QueryPerformanceCounter()<\/b> zurückgreifen, die Messungen im Mikrosekundenbereich ermöglicht. Wie das in VBA gelingt, zeigen wir in einem weiteren Artikel.<\/p>\n Enthaltene Beispieldateien:<\/p>\n PerformanceMessenMitTimer.accdb<\/p>\nDim <\/span>sngStart As Single<\/span>\r\nsngStart = Timer()\r\n'Hier kommt der zu messende Code\r\nDebug.Print<\/span> \"Dauer: \" & Timer() - sngStart<\/pre>\nDer Sonderfall Mitternacht<\/h2>\n
Public Function <\/span>TimerDauer(sngStart As Single<\/span>) _\r\n As Single<\/span>\r\n Dim <\/span>sngDauer As Single<\/span>\r\n sngDauer = Timer() - sngStart\r\n If <\/span>sngDauer < 0 Then<\/span>\r\n sngDauer = sngDauer + 86400\r\n End If<\/span>\r\n TimerDauer = sngDauer\r\nEnd Function<\/span><\/pre>\nZwei Varianten vergleichen<\/h2>\n
Public Function <\/span>ZaehlenMitDCount() As Long<\/span>\r\n ZaehlenMitDCount = DCount(\"*\", \"tblTestdaten\")\r\nEnd Function<\/span>\r\nPublic Function <\/span>ZaehlenMitRecordset() As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb()\r\n Set<\/span> rst = db.OpenRecordset(\"tblTestdaten\", _\r\n dbOpenTable)\r\n ZaehlenMitRecordset = rst.RecordCount\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>VariantenVergleich()\r\n Dim <\/span>lng As Long<\/span>\r\n Dim <\/span>lngCount As Long<\/span>\r\n Dim <\/span>sngTimer As Single<\/span>\r\n lngCount = 10000\r\n sngTimer = Timer()\r\n For lng = 1 To lngCount\r\n ZaehlenMitDCount\r\n Next<\/span> lng\r\n Debug.Print<\/span> \"Dauer DCount: \" & sngTimer - Timer\r\n sngTimer = Timer()\r\n For lng = 1 To lngCount\r\n ZaehlenMitRecordset\r\n Next<\/span> lng\r\n Debug.Print<\/span> \"Dauer DCount: \" & sngTimer - Timer\r\nEnd Sub<\/span><\/pre>\nTipps für verlässliche Messungen<\/h2>\n
\n
Zusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n