Calcul du temps de calcul d'une opération

Bonjour tout le monde...

Pouvez-vous SVP m'aider à trouver la fonction qui pemet de calculer le temps de traitement d'une opération sans tenir compte des autres processus qui tournent sur le réseau...

exemple :

for i = 1 to 1000

traitement


next

durée de traitement = . ????

merci beaucoup

je l'ai pas vérifié, je l'écris a mains levé (pas facile:P )

Code:

---

1 2 3 4 5 6 7 8 9 10

a = time for i = 1 to 1000   traitement     next b = time - a msgbox b

---

Tu peux aussi utiliser la fonction GetTickCount

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Declare Function GetTickCount& Lib "kernel32" ()   Sub MesureDuTempsQuiPasse() Dim Debut As Long   Debut = GetTickCount&   For i = 1 To 1000000 'traitement Next   MsgBox GetTickCount& - Debut   End Sub

---

Le temps est donné en millisecondes
tps / 1000 = tps en secondes
Après, ce n'est plus une application, c'est une charrue ;)