Depassement de Capacité Numerique
lowave
-
lowave -
lowave -
Bonjour,
j'ai recuperé cette procedure sur le net.
j'essaye de faire une petite procedure de "wait" attente pendant quelque seconde.
---------------------
Sub Wait (ByVal nSecond As Single)
Dim t0 As Single
t0 = Timer
Do While Timer - t0 < nSecond
Dim dummy As Integer
dummy = DoEvents()
If Timer < t0 Then
t0 = t0 - 24 * 60 * 60 ' si on depasse minuit on retranche un jour
End If
Loop
End Sub
----------------------
Le probléme c'est que quand on dépasse minuit j'ai un message de depassement de capacité Numerique ?!
Une idée ?
Merci !
j'ai recuperé cette procedure sur le net.
j'essaye de faire une petite procedure de "wait" attente pendant quelque seconde.
---------------------
Sub Wait (ByVal nSecond As Single)
Dim t0 As Single
t0 = Timer
Do While Timer - t0 < nSecond
Dim dummy As Integer
dummy = DoEvents()
If Timer < t0 Then
t0 = t0 - 24 * 60 * 60 ' si on depasse minuit on retranche un jour
End If
Loop
End Sub
----------------------
Le probléme c'est que quand on dépasse minuit j'ai un message de depassement de capacité Numerique ?!
Une idée ?
Merci !
A voir également:
- Depassement de Capacité Numerique
- Télévision numérique - Guide
- Signature numérique word - Guide
- Amd depassement delai pilote - Forum Carte graphique
- Clavier numérique - Guide
- Quelles sont les 2 orientations possibles d'une page d’un document numérique ? ✓ - Forum Word
