1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim duree As Date, heuredebut As Date, heurefin As Date, heuretech As Date
heuretech = TexteTempsTech1.Value
heuredebut = ÉtiquetteHeureDebut.Caption
heurefin = ÉtiquetteHeureFin.Caption
If Hour(heuredebut) > Hour(heurefin) Then
heurefin = heurefin + TimeSerial(24, 0, 0) 'ajout de 24h pour calculer la durée
Else
End If
duree = (heurefin - heuredebut)
If (heuretech - duree) > 0 Then
MsgBox "La durée indiquée est supérieure à la durée de l'intervention", vbExclamation, "Durée incorrecte"
TexteTempsTech1.Value = Null
Else
End If |
Partager