Calcul du temps déxécution d'une appli
jack2125
Messages postés
486
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Y a t il un algo de calcul du temps d'éxécution d'un programme?
Windows / Edge 122.0.0.0
vous êtes super!
merci à tous
2 réponses
-
Bonjour.
... à part le brave chronomètre de nos sportifs, je n'en vois pas !
-
Bonjour
quelque chose comme çà
Sub test() Dim tdeb As Double, tfin As Double, tt As Double tdeb = Timer Call truc Call machin tfin = Timer tt = tfin - tdeb MsgBox "temps mis " & Format(tt, "0.00") & " s" End Sub Sub truc() Dim k As Long, a As Double For k = 1 To 10000000 a = Sin(Rnd()) Next k End Sub Sub machin() Dim k As Long, a As Double For k = 1 To 10000000 a = Sin(Rnd()) Next k End Sub
Cdlmnt