Function GetSecondsElapsed1() As Long Static dOldDate As Date Static dNewDate As Date ' sauvegarde dOldDate = dNewDate ' maintenant dNewDate = Now ' évite un dépassement de capacité inutile If dOldDate = 0 Then dOldDate = dNewDate ' retour GetSecondsElapsed1 = DateDiff("s", dOldDate, dNewDate) End Function ' ' Function GetSecondsElapsed2() As Double Static dOldTimer As Double Static dNewTimer As Double ' sauvegarde dOldTimer = dNewTimer ' maintenant dNewTimer = Timer ' premier lancement If dOldTimer = 0 Then dOldTimer = dNewTimer ' retour GetSecondsElapsed2 = dNewTimer - dOldTimer End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.