En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1224891 visiteurs

 22 visiteurs en ligne

Nous contacter

Contact

Chronomètre

Chronomètre

Syntaxe :

Call Chronometre ("start")

puis Msgbox Chronometre ("stop") & " millisecondes"

'/
'/ A placer dans la partie déclarative
'/
Declare Function GetTime Lib "winmm.dll" Alias "timeGetTime" () As Long

Function Chronometre(START_or_STOP As String) As Long
    Static StartTime As Long
    
    Select Case START_or_STOP
        Case Is = "START"
            StartTime = GetTime()
        Case Is = "STOP"
            Chronometre = GetTime() - StartTime
    End Select
End Function

Autre méthode :

Call Chronometre (False)

puis Msgbox Chronometre (True) & " millisecondes"
 

'/
'/ A placer dans la partie déclarative
'/
Declare Function GetTickCount Lib "kernel32" () As Long

Function Chronometre(False_Puis_True As Boolean) As Long
    Static Compteur As Long

    If False_Puis_True = False Then
        Compteur = GetTickCount
    Else
        CalculTemps = GetTickCount - Compteur
    End If
End Function

Catégorie : Les mémos - Dates - Heures
Page lue 9842 fois
Vous êtes ici :   Accueil » Chronomètre