判斷程式啟始和結束執行的時間差(毫秒)
判斷程式啟始和結束執行的時間差(毫秒)
1 2 3 4 | Dim dteNow As DateTime= Now <span style="color: #008000;">'--- 顯示結束時間執行 ---</span> Dim tsnTimeDiff As TimeSpan= Now.Subtract(dteNow) Msgbox("執行時間: " & tsnTimeDiff.TotalMilliseconds & " 毫秒") |
判斷程式啟始和結束執行的時間差(毫秒)
1 2 3 4 | Dim dteNow As DateTime= Now <span style="color: #008000;">'--- 顯示結束時間執行 ---</span> Dim tsnTimeDiff As TimeSpan= Now.Subtract(dteNow) Msgbox("執行時間: " & tsnTimeDiff.TotalMilliseconds & " 毫秒") |
Dim dteNow As DateTime= Now <span style="color: #008000;">'--- 顯示結束時間執行 ---</span> Dim tsnTimeDiff As TimeSpan= Now.Subtract(dteNow) Msgbox("執行時間: " & tsnTimeDiff.TotalMilliseconds & " 毫秒")