Suivi quotidien

Fermé
cynthy - 1 mai 2010 à 16:03
bonjour tout le monde.si klk1 pourra m'apporté une solution. je suis entrain de programmer le suivi quotidien du personnel(presence).
je suis coincé sur le test à faire sur les valeurs entrées au clavier avant la validation.
je vous donne le code
p = InStr(Text1, ":")
h = Mid$(Text1, 1, p - 1)
If Val(h) > 24 Then
MsgBox "soyez raisonnable 24h60mn60s", vbCritical
Text1.SetFocus
Else
pp = p
p = InStr(p + 1, Text1, ":")
h = Mid$(Text1, pp + 1, p - 1)
If Val(h) > 60 Then
MsgBox "soyez raisonnable 24h60mn60s"
Text1 = ""
Text1.SetFocus
Else
ppp = pp
p = InStr(ppp + 1, Text1, " ")
h = Mid$(Text1, ppp + 1, ppp + 2)
If Val(h) > 59 Then
MsgBox "soyez raisonnable 24h60mn60s"
Text1 = ""
Text1.SetFocus
End If
End If
End If
je suis un peu coincé sur le test de seconde.
merci d'avance