Format seconde + décimales

Bonjour,

Pour récupérer une durée au format "heure, minutes, secondes", j'utilise habituellement ceci :

Citation:

---

Format(Time, "h\hmm ss''")

---

Dans la procédure suivante, je souhaiterais récupérer un résultat en seconde + 2 décimales :

Code:

---

1 2 3 4 5 6 7 8

TimerD as long TimerD = Timer (ma procédure) MsgBox "Le PDF a été exporté sur votre bureau !" & vbLf & _ "Durée : " & Format((Timer - TimerD), "0,0") & " sec.", vbOKOnly + vbInformation, "Info"

---

Malgré diverses tentatives (dont je vous fais grâce), je n'arrive pas à trouver le bon format (cf. caractères en rouge), si tant est que le problème se trouve là !

En vous remerciant par avance pour vos lumières,
Cdt

Bonjour,
En VBA, le séparateur décimale est le point et pas la virgule et de plus, je suis étonné que vous n'ayez pas eu un message d'erreur sur votre première ligne. Il manque le mot clé Dim

Salut,

Le mesure du temps en VBA n'est pas d'une précision absolue.
Les dates sont précises à la seconde près.
Il y a cependant la fonction Timer qui renvoie le nombre de secondes depuis minuit (au centième près).
On peut l'exploiter en lui soustrayant sa partie entière, avec la fonction Fix().

Le résultat obtenu sera un nombre réel (single), qui de part sa nature propre, trimbale une certaine dose d'imprécision
Pour obtenir une date / heure précise, soit on stock tout dans un réel, soit dans une chaîne. Il faudra prendre en charge les convertions que cela implique.

Par exemple, sous forme de chaîne:

Code:

---

Format(Now, "dd/mm/yyyy hh:mm:ss") & Format(Timer - Fix(Timer), ".00")

---

Bonsoir,

@ Philippe : Merci ! Mon erreur reposait sur "ce point" capital. J'ai déclaré ma variable en Public

@ Deedolith : Merci pour cette proposition.

Cdt

Bonjour,
Quand j'ai besoin de chronométrer avec une très grande précision (de l'ordre du millième de seconde) le temps d'exécution d'un traitement j'utilise les API suivantes qui se basent sur le nombre de battements du micro processeur. C'est plus précis que l'instruction Timer qui renvoie une durée à plus ou moins 15 centièmes près (à vérifier).

Exemple d'appel :

Code:

---

1 2 3

' Call Chronometre(True) ' Initialise le chronomètre. ' ... ' Traitement à chronométrer. ' Debug.Print "Durée : " & Chronometre(False) ' Affiche la durée écoulée.

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Option Explicit   Private Declare PtrSafe Function GetTickCount Lib "kernel32" Alias "QueryPerformanceCounter" (cyFrequency As Currency) As Long Private Declare PtrSafe Function GetFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (cyFrequency As Currency) As Long   '---------------------------------------------------------------------------------------- Public Function Chronometre(Initialise As Boolean) As Double '---------------------------------------------------------------------------------------- ' renvoie le temps écoulé entre deux appels de la fonction. ' Exemple : ' Call Chronometre(True) ' Initialise le chronomètre. ' Call QuickRanking(MonTableau(), True, 0) ' Traitement à chronomètrer. ' Debug.Print "Durée : " & Chronometre(False) ' Affiche la durée écoulée. '---------------------------------------------------------------------------------------- ' Source: https://msdn.microsoft.com/fr-fr/library/office/ff700515(v=office.14).aspx ' Utilise les API pour renvoyer une durée plus précise que Timer. '---------------------------------------------------------------------------------------- Dim cyTicks As Currency Static cyFrequence As Currency Static CyDébut As Currency   ' Initialise le calcul de la fréquence du micro processeur: If cyFrequence = 0 Then GetFrequency cyFrequence   ' Renvoie le nombre de tick écoulés: GetTickCount cyTicks   ' Si initialisation du chronomètre alors mémorise l'heure d'appel et quitte: If Initialise = True Then CyDébut = (cyTicks / cyFrequence): Exit Function   ' Sinon renvoie le temps écoulé depuis l'initalisation: If cyFrequence Then Chronometre = (cyTicks / cyFrequence) - CyDébut   End Function '----------------------------------------------------------------------------------------

---

Bonjour Laurent,

Merci pour cette proposition bien que mes besoins soient très en-deça d'un code aussi sophistiqué (qui néanmoins force mon admiration).

Cdt