Cách xem thời gian thực hiện 1 dự án bằng VBA

[keentwo]

-Cho e hỏi 1 bài toán có nhiều cách lập trình VBA khác nhau,bây giờ e muốn xem thời gian thực hiện xong 1 dự án đó là bao nhiêu lâu thì phải viết như thế nào ạ?

 

[tuan_anhbm]

Đây là cái bạn cần ? tôi lấy trên GPE thôi mà:
Sub DemThoiGian()
TGian = Timer
‘đặt code của bạn ở đây
MsgBox "Thoi gian thuc hien code nay la: " & Str(Timer - TGian) & " giay."
End Sub

 

[keentwo]

Đây là cái bạn cần ? tôi lấy trên GPE thôi mà:
Sub DemThoiGian()
TGian = Timer
‘đặt code của bạn ở đây
MsgBox "Thoi gian thuc hien code nay la: " & Str(Timer - TGian) & " giay."
End Sub

-Cho e hỏi nhưng nếu đó là hàm Function thì làm thế nào ạ?Như file cụ thể sau chẳng hạn

Function NS3YT(VungTra As Range, xeduong As Range, _
    taitrong As String, Duong As String, luuluong As Double) As Double
Dim i As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
Dim hang As Integer
For i = 1 To xeduong.Cells.Count
   If Application.WorksheetFunction.Match(taitrong & Duong, xeduong, 0) = i Then
        hang = i + 1
   End If
Next i

For i = 1 To VungTra.Cells.Count
   If VungTra.Cells(1, i) <= luuluong And VungTra.Cells(1, i + 1) >= luuluong Then
       x1 = VungTra.Cells(1, i): x2 = VungTra.Cells(1, i + 1)
       y1 = VungTra.Cells(hang, i): y2 = VungTra.Cells(hang, i + 1)
       NS3YT = y1 + (y2 - y1) * (luuluong - x1) / (x2 - x1)
   End If
Next i
End Function