[Résolu] [Calc] Calcul de la différence entre 2 heures

[bonsaiko]

Bonsoir à tous,

Je cherche à faire un truc tout simple : calculer le temps d'exécution de ma macro.

Voici la fonction que j'ai créée :

Code : Tout sélectionner

Sub logExecutionTime()

	Dim timeDiff as Integer
	
	If startTime = 0 Then
		startTime = Now
	Else
		endTime = Now
		timeDiff = endTime - startTime
		MsgBox "La macro a été exécutée en " & timeDiff & " secondes"
	End If
	
End Sub

L'idée c'est donc d'appeler logExecutionTime en tout début et en toute fin de la macro.
Le souci c'est que lorsque j'initialise startTime avec Now, j'obtiens un Variant / Date et je ne sais pas comment convertir cela en genre timestamp...

Est-ce que vous pourriez m'aider ?
Et si vous avez un avis sur mon code, il sera le bienvenu !

Merci par avance.

[Noonours]

Bonjour le forum
Une proposition avec la fonction GetSystemTicks() ici en s'inspirant de l'exemple créé par bm92.
Il existe pour LibreOffice le service ScriptForge.Timer qui permet d'obtenir d'autres propriétés de calcul de durée d'un script.

Cordialement,

[micmac]

Bonjour,

Veuillez lire les règles de cette section (bandeau rouge en haut de la page) et baliser votre sujet comme c'est prévu ou le sujet sera verrouillé.

[bonsaiko]

Merci @Nounours.

J'ai regardé le post que tu mentionnes, apparemment mon code était bon.
Je l'ai modifié un peu et cela donne ça :

Code : Tout sélectionner

Sub logExecutionTime()
	
	If IsEmpty(startTime) Then
		startTime = Now
	Else
		endTime = Now
		MsgBox(Format((endTime - startTime), "h\h m\mn s\s"), 0, "Durée du traitement")
	End If
	
End Sub

Je l'appelle au début, je l'appelle à la fin, et j'obtiens ce que je voulais.

Merci beaucoup !!!