[Résolu][Basic] Calculer temps exécution d'un script

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Avatar de l’utilisateur
Mobydick_62
Membre OOrganisé
Membre OOrganisé
Messages : 80
Inscription : 07 avr. 2011 12:04
Localisation : Vendée (France)

[Résolu][Basic] Calculer temps exécution d'un script

Message par Mobydick_62 »

Bonjour à tous,
Malgré mes recherches je n'ai pas trouvé de réponse.
Je ne suis absolument pas habitué au traitement des dates et heures, et mon cerveau de gaucher contrarié a du mal à comprendre certaines choses :lol:
Je voudrais tout simplement compter le temps que met une macro pour exécuter une certaine tâche.
Ci dessous un exemple

Code : Tout sélectionner

Sub Traitement()
Dim debut, fin as Date
debut = Time(now)
'Ici le wait simule un code qui "travaille
Wait 5000
fin = Time(now)
MsgBox "Ce traitement a nécéssité : _____ secondes."
End Sub
Merci d'avance
Dernière modification par Mobydick_62 le 03 mars 2014 15:22, modifié 1 fois.
Libre Office Version: 7.0.4 (x64)
SE Windows 10
Avatar de l’utilisateur
alhazred
ManitOOu
ManitOOu
Messages : 3028
Inscription : 30 avr. 2011 23:08
Localisation : Casablanca (Maroc)

Re: [Basic] Calculer temps exécution d'une macro

Message par alhazred »

Bonjour,

Code : Tout sélectionner

Sub Traitement()
	Dim top
	top = Now
	Wait 5000
	Print "Ce traitement a nécessité "+((Now-top)*100000)+" secondes."
End Sub
À bientôt

LibO 4.1.5.3 et AOO 4.0.1 sous Windows 7, MRI et SDK pour les macros.

Et la sauvegarde incrémentée, c'est sympa !
Avatar de l’utilisateur
Mobydick_62
Membre OOrganisé
Membre OOrganisé
Messages : 80
Inscription : 07 avr. 2011 12:04
Localisation : Vendée (France)

Re: [Basic] Calculer temps exécution d'une macro

Message par Mobydick_62 »

Bonjour alhazred
Toujours aussi prompt pour aider.
On ne peut pas faire plus simple.
Merci beaucoup. :super:
Libre Office Version: 7.0.4 (x64)
SE Windows 10
bm92
ManitOOu
ManitOOu
Messages : 2562
Inscription : 26 nov. 2005 13:42

Re: [Résolu][Basic] Calculer temps exécution d'un script

Message par bm92 »

Bonsoir,
Mais on peut faire plus exact...

Code : Tout sélectionner

Sub Traitement()
   Dim top
   top = Now
   Wait 5000
   Print "Ce traitement a nécessité "+((Now-top)*86400)+" secondes."
End Sub
Ou plus précis...

Code : Tout sélectionner

Sub Traitement()
   Dim top As Long
   top = GetSystemTicks
   Wait 5000
   Print "Ce traitement a nécessité "+(GetSystemTicks-top)+" millisecondes (à 16 ms près)."
End Sub
Bernard

OpenOffice.org 1.1.5 fr / Apache OpenOffice 4.1.1 / LibreOffice 5.0.5.2 (X64)
MS-Windows 7 SP1 64bits Familial
Avatar de l’utilisateur
alhazred
ManitOOu
ManitOOu
Messages : 3028
Inscription : 30 avr. 2011 23:08
Localisation : Casablanca (Maroc)

Re: [Résolu][Basic] Calculer temps exécution d'un script

Message par alhazred »

Bonsoir,
bm92 a écrit :(Now-top)*86400
Là, j'ai vraiment cafouillé :oops:
À bientôt

LibO 4.1.5.3 et AOO 4.0.1 sous Windows 7, MRI et SDK pour les macros.

Et la sauvegarde incrémentée, c'est sympa !
bm92
ManitOOu
ManitOOu
Messages : 2562
Inscription : 26 nov. 2005 13:42

Re: [Résolu][Basic] Calculer temps exécution d'un script

Message par bm92 »

Cette variante laisse Basic faire les conversions laborieuses :wink:

Code : Tout sélectionner

Dim top As Date
top = Now
  Wait 5000
MsgBox(Format(Now-top, "h\h m\mn s\s"), 0, "Durée du traitement")
(en supposant une durée inférieure à 24 heures)
Bernard

OpenOffice.org 1.1.5 fr / Apache OpenOffice 4.1.1 / LibreOffice 5.0.5.2 (X64)
MS-Windows 7 SP1 64bits Familial
Avatar de l’utilisateur
Mobydick_62
Membre OOrganisé
Membre OOrganisé
Messages : 80
Inscription : 07 avr. 2011 12:04
Localisation : Vendée (France)

Re: [Résolu][Basic] Calculer temps exécution d'un script

Message par Mobydick_62 »

Bonsoir
Merci pour les autres précisions. :bravo:
Libre Office Version: 7.0.4 (x64)
SE Windows 10