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 -

Bonjour,

Y a t il un algo de calcul du temps d'éxécution d'un programme?


Windows / Edge 122.0.0.0

A voir également:

2 réponses

Réponse 1 / 2
Raymond PENTIER Messages postés 71831 Date d'inscription   Statut Contributeur Dernière intervention   17 378
 

Bonjour.

... à part le brave chronomètre de nos sportifs, je n'en vois pas !
0
jack21
 

bonjour Raymond 

Ca me fait plaisir de te lire

Comment va la santé?

Pour compter le temps il existe un algo qui fonctionne très bien dans mon appli sauvegarde mais qui ne fonctionne que partiellement dans une autre appli

te souhaite une très bonne journée

jacques

0
brucine Messages postés 23227 Date d'inscription   Statut Membre Dernière intervention   3 598 > jack21
 

Bonjour,

Si on peut démarrer l'application à la ligne de commande dans un batch, il suffit de Logger le moment du lancement puis de boucler une commande qui vérifie si le process est encore actif et de Logger quand il ne l'est plus.

0
Réponse 2 / 2
ccm81 Messages postés 11033 Statut Membre 2 433
 

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
0

Discussions similaires

Durée d'une diapositive animée
bibibibi99 -
bibibibi99 -

2 réponses
35 GO à l'étranger
Laurence -
Laurence -

2 réponses