Ausführungszeit in ms messen
19.02.2021 08:48:39
M.
ich habe ein größeres Programmchen, bei dem ich die Ausführungszeit testen und optimieren möchte.
Dazu eine einfache Stoppuhr eingebaut.
.... leider misst es die Zeit nicht in Millisekunden, gibt es da eine schnelle Lösung?
p.s.
Zeit = Now
Call CSVladen_Click
Call Uebertragen_Click
Call Aktualisieren_Click
'Call Uebertragen_Click
Differenz = Format(Now - Zeit, "hh:mm:ss,000")
MsgBox "Tagesprogramm in " & Differenz & " geplant"