Berekeningstijd meten

[Tom25]

Weet iemand hoe je visual basic de berekeningstijd kan laten meten van een opdracht.

bv. van:

Private Sub Wissen2_Click()
tedecoderen.Text = ""
gedecodeerd.Text = ""
MsgBox "Wissen voltooid!!", vbInformation
End Sub

Groetjes,
Tom

 

[etri]

Dat kan als volgt:

    Dim t1 As Date
    Dim t2 As Date
    
    t1 = Now

    'Doe iets heel tijdsrovend...

    t2 = Now
    
    MsgBox Format((t2 - t1), "s") & " seconds"

t2-t1 geeft de verstreken tijd in dagen aan. De code Format(..., "s") rekent de 'date waarde' automatisch om in seconden.
Als je zelf wilt uitrekenen hoeveel (t2-t1) is in seconden, dan moet je (t2-t1) vermenigvuldigen met 24 (aantal uren in een dag) en 3600 (aantal seconden in een uur): (t2-t1)*24*3600.

 

[Tom25]

dankjewel :thumb: