Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

º Base ouverte
º Compacter une base externe
º Empêcher la ré-ouverture d'une base
º Importer tous les objets
º Lire les propriétés de la base en cours
º Modifier la barre de titre
º Modifier une propriété
º Répertoire en cours

Temps d'exécution d'une fonction
º Vérifer le groupe de travail

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

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

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

Date de création : 14/09/2006 @ 16:36
Dernière modification : 12/06/2007 @ 13:02
Catégorie : Base de données
Page lue 1805 fois

Prévisualiser la page Imprimer la page