Discussion :

[bejaad]

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

[alsimbad]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
a = time
for i = 1 to 1000
 
traitement
 
 
next
b = time - a
msgbox b

[ouskel'n'or]

Tu peux aussi utiliser la fonction GetTickCount

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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