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


vous êtes super!
merci à tous

2 réponses

  1. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     

    Bonjour.

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


    0
    1. 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
      1. brucine Messages postés 24862 Date d'inscription   Statut Membre Dernière intervention   4 172 > 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
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     

    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