Đo thời gian chạy code

[pt_hcl]

Chào GPE! Mình xin hỏi GPE có cách nào đo được thời gian thực hiện chạy code không ạ? Ví dụ như khi mình thực hiện một lệnh nào đó, sau khi chạy hoàn thành thì hiện ra bảng thông báo tổng thời gian thực hiện hoặc trong quá trình chạy có một bảng thông báo thời gian đếm ngược quá trình thực hiện code! Xin GPE giúp đỡ, xin chân thành cảm ơn!

 

[SA_DQ]

Cách thô nhất là vầy:

Dim Tmr As Double

Tmr = Timer()
'Các Dòng lệnh của bạn'

MsgBox Timer()-Tmr
End Sub