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
<hr />
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
<hr />
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
<hr />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
Le développement n'est pas du code écrit "au hasard des caprices", mais doit nécessairement s'appuyer très précisément sur la syntaxe prévue pour la langage que l'on utilise. L'aide en ligne est là pour celà et doit être consultée régulièrement.
Une durée (temps écopulé entre deux instants) n'est pas une heure (l'heure qu'il est) ...
Intéresse-toi sans attendre à la fonction DateDiff...
en fait je voudrais que dans ma textbox811 apparaisse le resultat de ma textbox798 moins ma textbox797(qui sont toutes les 2 en heure : minute) et que mon resultat soit également en heure : minute
quand par exemple j'écris 10:30 ddans ma textbox 797, ca m'écris bien 10:30
11:30 dans ma textbox798, également
mais dans ma textbox811, ca m'écris 0
Vous n’avez pas trouvé la réponse que vous recherchez ?
et je le redis: pour Format, mm concerne le Mois et non les minutes
faire, donc (après avoir bien lu, et sans valider la réponse pour la forme)
Private Sub TextBox811_AfterUpdate()
Dim Delta As Long
If IsDate(TextBox797.Value) And IsDate(TextBox798.Value) Then
Delta = DateDiff("n", CDate(TextBox798.Value), CDate(TextBox797.Value))
TextBox811.Value = FormatDateTime(TimeSerial(0,Delta,0), vbShortTime)
End If
End Sub