मैं यह जानना चाहता हूं कि परीक्षण प्रयोजनों के लिए एक प्रक्रिया / कार्य / आदेश को पूरा करने में कितना समय लगता है।
यह वही है जो मैंने किया है, लेकिन मेरा तरीका गलत है, क्योंकि यदि सेकंड का अंतर 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
डेलाइट सेविंग और टाइम ज़ोन मुद्दों के कारण कभी भी गणित नहीं करना चाहिए । कृपया इस बहुत विषय पर मेरी ब्लॉग पोस्ट