Compléments pour Microsoft Access

Description

		Cette fonction permet de connaître en millisecondes le temps d'exécution d'une fonction.

Syntaxe

TimeOfFunction(strFunction[, lngX])

La syntaxe de la fonction TimeOfFunction comprend les éléments suivants :

Eléments	Description
strFunction	Expression de chaîne correspondant au nom de la fonction dont on souhaite connaître le temps d'exécution. Si cette dernière a des arguments obligatoires, il conviendra de les renseigner dans cette variable.
lngX	Facultatif. Valeur numérique correspondant au nombre de fois que l'on souhaite se faire répéter la fonction. La valeur par défaut est 1, si la fonction a tester est longue a s'exécuter, cette argument n'est pas nécessaire.

Exemple

		Debug.Print "Test Fonction1", TimeOfFunction ("Fonction1('argument texte fonction1')",5)

Code de la fonction

Public Function TimeOfFunction(strFunction As String, Optional lngX As Long = 1) As Long

'** Fonction permettant de tester le temps
'** d'exécution d'une fonction

Dim sngStart As Single
Dim sngEnd As Single
Dim i As Long
sngStart = Timer
For i = 1 To lngX
Eval (strFunction)
Next
sngEnd = Timer
TimeOfFunction = (sngEnd * 1000) - (sngStart * 1000)

End Function

Temps d'exécution d'une fonction (Base de données)