Code Snippet "VBA allgemein"

Zeit messen mit Timer für Performance-Optimierung

'Prozedur zur Performance-Optimierung -> Zeitmessung
Public Sub procZeitMessung(ByVal strMeldung As String)
  Static sngVorher As Single
  Dim sngAktuell As Single
  Dim sngDifferenz As Single
  
  sngAktuell = Timer
  sngDifferenz = sngAktuell - sngVorher
  
  
  Debug.Print FormatNumber(sngAktuell, 2) & " D: " & _
    FormatNumber(sngDifferenz, 2) & " " & strMeldung
  sngVorher = sngAktuell
End Sub