আমি জানতে চাইছি যে পরীক্ষার উদ্দেশ্যে কোনও প্রক্রিয়া / ক্রিয়াকলাপ / আদেশ শেষ হতে কত সময় নেয়।
এটি আমি করেছিলাম কিন্তু আমার পদ্ধতিটি ভুল 'কারণ যদি সেকেন্ডের পার্থক্য 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)