Anzeige
Archiv - Navigation
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ausführungszeit in ms messen

Ausführungszeit in ms messen
19.02.2021 08:48:39
M.
Hallo zusammen,
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"

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausführungszeit in ms messen
19.02.2021 08:59:56
M.
p.s. Zehntelsekunden würde schon reichen!
AW: Ausführungszeit in ms messen
19.02.2021 09:08:03
Rudi
Hallo,
Differenz in Sekunden
 Zeit = Timer
Call CSVladen_Click
Call Uebertragen_Click
Call Aktualisieren_Click
'Call Uebertragen_Click
Differenz = Timer - Zeit
MsgBox "Tagesprogramm in " & Differenz & " geplant"

Gruß
Rudi
AW: Ausführungszeit in ms messen
19.02.2021 09:10:27
MRUTOR
Hallo M.,
diese Zeilen in den Kopf deines Moduls:

Public Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Public lngTime As Long

diese Zeile am Anfang deines Codes:

lngTime = GetTickCount

und eine Msgbox mit der Ausgabe am Ende des Codes:

MsgBox (GetTickCount - lngTime)

Gruss Tor
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige