Laufzeitmessung im Code

Sprache / Programm: Visual Basic ab Version 5.0 · VBA ab Office 95

Beschreibung

Mit dem Funktionsgerüst können Laufzeitmessungen des Codes ausgeführt werden. So läßt sich bei verschiedenen Programmvarianten feststellen, welche die schnellste Variante ist.

VBA-Quelltext

Public Function ZeitMessung()
Dim StartZeit As Currency, Dauer As Currency
DoEvents
StartZeit = Timer

' Hier steht der Code,
' dessen Laufzeit gemessen werden soll

Dauer = Format(Timer - StartZeit, "0.00")
MsgBox "Dauer: " & Dauer & " s", , "Laufzeitmessung"
Debug.Print Dauer
End Function

Rückgabewert

Die Rückgabe erfolgt in einer Dialogbox

Hinweis

Mit Hilfe der Bedingten Kompilierung können verschiedene Varianten programmiert werden und entsprechend für die Zeitmessung angewendet werden, Beispiel:

#If False Then

... Code Variante 1

#End If

#If False Then

... Code Variante 2

#End If

#If True Then

... Code Variante 3

#End If

Nur der Codeabschnitt, der zwischen #If True .. und #End If steht, wird kompiliert und ausgeführt. Da die Zeitmessung nach dem Kompilieren durchgeführt wird, haben die anderen Codevarianten keinen Einfluss auf das Meßergebnis.