Bonsoir
Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de
code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde,
(c'est pour un calcul de performance)
merci d'avance
amicalement Jacques
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonsoir (ou Bonjour peut être) Jacques,
Sous réserve d'avoir bien compris. Dans une procédure, tu récupères au début dans T1 l'heure de démarrage et saisis l'heure de fin dans T2 au terme du traitement. Pour obtenir l'écart en millisecondes, je pense qu'il faut utiliser l'API timeGetTime()
Dans ton module : Sous Option Compare Database Private Declare Function timeGetTime Lib "winmm.dll" () As Long
puis par exemple: Private Sub Commande0_Click() Dim T1 As Long, T2 As Long, ecart As Long Dim t As Double, i As Integer, j As Integer, msg As String T1 = timeGetTime() ' calculs For i = 1 To 500 For j = 1 To 500 t = Sqr(37 * (i ^ 0.25) * (j ^ 0.75)) Next j Next i T2 = timeGetTime() ecart = T2 - T1 msg = "Les calculs ont été réalisés en " MsgBox msg & vbCrLf & ecart & " millisecondes" End Sub
PS: le temps retourné peut être affecté par la charge de ton processeur si tu itères le traitement.
Bonsoir Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde, (c'est pour un calcul de performance) merci d'avance amicalement Jacques
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir (ou Bonjour peut être) Jacques,
Sous réserve d'avoir bien compris.
Dans une procédure, tu récupères au début dans T1 l'heure de démarrage
et saisis l'heure de fin dans T2 au terme du traitement.
Pour obtenir l'écart en millisecondes, je pense qu'il faut utiliser
l'API timeGetTime()
Dans ton module :
Sous Option Compare Database
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
puis par exemple:
Private Sub Commande0_Click()
Dim T1 As Long, T2 As Long, ecart As Long
Dim t As Double, i As Integer, j As Integer, msg As String
T1 = timeGetTime()
' calculs
For i = 1 To 500
For j = 1 To 500
t = Sqr(37 * (i ^ 0.25) * (j ^ 0.75))
Next j
Next i
T2 = timeGetTime()
ecart = T2 - T1
msg = "Les calculs ont été réalisés en "
MsgBox msg & vbCrLf & ecart & " millisecondes"
End Sub
PS: le temps retourné peut être affecté par la charge de ton processeur
si tu itères le traitement.
Bonsoir
Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de
code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde,
(c'est pour un calcul de performance)
merci d'avance
amicalement Jacques
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Sous réserve d'avoir bien compris. Dans une procédure, tu récupères au début dans T1 l'heure de démarrage et saisis l'heure de fin dans T2 au terme du traitement. Pour obtenir l'écart en millisecondes, je pense qu'il faut utiliser l'API timeGetTime()
Dans ton module : Sous Option Compare Database Private Declare Function timeGetTime Lib "winmm.dll" () As Long
puis par exemple: Private Sub Commande0_Click() Dim T1 As Long, T2 As Long, ecart As Long Dim t As Double, i As Integer, j As Integer, msg As String T1 = timeGetTime() ' calculs For i = 1 To 500 For j = 1 To 500 t = Sqr(37 * (i ^ 0.25) * (j ^ 0.75)) Next j Next i T2 = timeGetTime() ecart = T2 - T1 msg = "Les calculs ont été réalisés en " MsgBox msg & vbCrLf & ecart & " millisecondes" End Sub
PS: le temps retourné peut être affecté par la charge de ton processeur si tu itères le traitement.
Bonsoir Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde, (c'est pour un calcul de performance) merci d'avance amicalement Jacques
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Jessy Sempere [MVP]
Bonjour
Sinon tu as une solution toute faite pour tester le temps d'exécution d'une fonction avec la possibilité de la lancer x fois si jamais elle est trop rapide...
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Gold" a écrit dans le message news: dcbabf$19f4$
Bonsoir Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde, (c'est pour un calcul de performance) merci d'avance amicalement Jacques
Bonjour
Sinon tu as une solution toute faite pour tester le temps d'exécution
d'une fonction avec la possibilité de la lancer x fois si jamais elle est
trop rapide...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Gold" <jagold@nerim.fr> a écrit dans le message news:
dcbabf$19f4$1@biggoron.nerim.net...
Bonsoir
Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de
code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde,
(c'est pour un calcul de performance)
merci d'avance
amicalement Jacques
Sinon tu as une solution toute faite pour tester le temps d'exécution d'une fonction avec la possibilité de la lancer x fois si jamais elle est trop rapide...
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Gold" a écrit dans le message news: dcbabf$19f4$
Bonsoir Y aurait t'il un moyen de calculer le temps (t1 - t2) entre 2 signets de code lorsque la durée (datediff) de t1 t2 est inférieure à la seconde, (c'est pour un calcul de performance) merci d'avance amicalement Jacques
