ฉันต้องการทราบว่าขั้นตอน / ฟังก์ชัน / คำสั่งใช้เวลานานเท่าใดเพื่อจุดประสงค์ในการทดสอบ
นี่คือสิ่งที่ฉันทำ แต่วิธีการของฉันไม่ถูกต้อง 'ทำให้เกิดถ้าความแตกต่างของวินาทีเป็น 0 ไม่สามารถคืนค่ามิลลิวินาทีที่ผ่านไป:
สังเกตว่าค่าสลีปคือ 500 ms ดังนั้นวินาทีที่ผ่านไปจึงเป็น 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
เนื่องจากปัญหาการออมแสงและโซนเวลา โปรดอ่านบล็อกโพสต์ของฉันเกี่ยวกับเรื่องนี้