Я хочу знать, сколько времени требуется для завершения процедуры / функции / заказа, в целях тестирования.
Это то, что я сделал, но мой метод неправильный, потому что, если разница в секундах равна 0, я не могу вернуть прошедшие миллисекунды:
Обратите внимание, что значение сна составляет 500 мс, поэтому прошедшие секунды равны 0, тогда он не может возвращать миллисекунды.
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))
Может кто-нибудь показать мне лучший способ сделать это? Может быть с собой TimeSpan
?
Решение:
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)
DateTime.Now
из-за проблем с переходом на летнее время и часовым поясом. Пожалуйста, прочтите мой блог по этой теме