Discussion :

[sergoid]

bonjour à tous,

je n'arrive pas à trouver une fonction qui me ferais la soustraction entre 2 heures differentes.

j'ai essayé le code suivant mais quand mon heure duree est égale à mon heure tempstech j'affiche quand meme le message d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

avez-vous des idées

[kissmytoe]

P-e ca???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If (Hour(heuretech) - Hour(duree)) > 0 Then

[Sonic]

Et avec datediff ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateDiff("h",Date1,Date2)