Discussion :

[mdambreville]

bonjour à tous,

je coince sur mon code qui veut pas marcher;

J'ai 3 textbox qui reçoivent des heures et des minutes
textbox797 heure arrivée
textbox 798 heure départ
textbox811 résultat (textbox798 - textbox 797)
j'ai réussi dans les textbox 797 et 798 à faire afficher l'heure en "hh : mm"
j'ai un souci avec le textbox811 qui ne m'affiche pas le résultat (il m'affiche 0)

code textbox797

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox797_AfterUpdate()
Dim H1 As Date
  Dim H2 As Date
  H1 = CDate(TextBox797.Value = "hh:mm")
  H2 = CDate(TextBox798.Value = "hh:mm")
  TextBox811.Value = H2 - H1
End Sub

code textbox798

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox798_AfterUpdate()
Dim H1 As Date
  Dim H2 As Date
  H1 = CDate(TextBox797.Value = "hh:mm")
  H2 = CDate(TextBox798.Value = "hh:mm")
  TextBox811.Value = H2 - H1
End Sub

code textbox811 (textbox de résultat)

Code :

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

1
2
3
4
5
6
7
Private Sub TextBox811_AfterUpdate()
Dim H1 As Date
  Dim H2 As Date
  H1 = CDate(TextBox797.Value = "hh:mm")
  H2 = CDate(TextBox798.Value = "hh:mm")
  TextBox811.Value = Format(H2 - H1, "hh:mm")
End Sub

Pouvez vous me donner un coup de main
merci d'avance