Messung der Codeausführungszeit in diesem Code

Post a reply

Smilies
:) :( :oops: :chelo: :roll: :wink: :muza: :sorry: :angel: :read: *x) :clever:
View more smilies
BBCode is ON
[img] is ON
[flash] is OFF
[url] is ON
Smilies are ON
Topic review
   

Expand view Topic review: Messung der Codeausführungszeit in diesem Code

by Anonymous » 05 Apr 2025, 23:44

Ich möchte wissen, wie viel Zeit eine Prozedur/Funktion/Bestellung für Testzwecke dauert. Millisekunden. < /p>

Code: Select all

    Dim Execution_Start As System.DateTime = System.DateTime.Now
Threading.Thread.Sleep(500)

Dim Execution_End As System.DateTime = System.DateTime.Now
MsgBox(String.Format("H:{0} M:{1} S:{2} MS:{3}", _
DateDiff(DateInterval.Hour, Execution_Start, Execution_End), _
DateDiff(DateInterval.Minute, Execution_Start, Execution_End), _
DateDiff(DateInterval.Second, Execution_Start, Execution_End), _
DateDiff(DateInterval.Second, Execution_Start, Execution_End) * 60))
< /code>
Gibt es einen besseren Weg, dies zu tun? Vielleicht mit einer Zeitspanne
?
Die Lösung:

Code: Select all

Dim Execution_Start As New Stopwatch
Execution_Start.Start()

Threading.Thread.Sleep(500)

MessageBox.Show("H:" & Execution_Start.Elapsed.Hours & vbNewLine & _
"M:" & Execution_Start.Elapsed.Minutes & vbNewLine & _
"S:" & Execution_Start.Elapsed.Seconds & vbNewLine & _
"MS:" & Execution_Start.Elapsed.Milliseconds & vbNewLine, _
"Code execution time", MessageBoxButtons.OK, MessageBoxIcon.Information)

Top