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

[ucfoutu]

Bonjour,

Un coup de main ?
Oui :
1) intéresse-toi de près à la fonction DateDiff (à voir dans ton aide en ligne)
on ne fait pas d'opérations sur les heures... on peut tout au plus calculer la durée écoulée entre deux heures.
2) la différence entre deux instants t1 et t2 passe nécessairement par la prise en considération, en plus, de la date de t1 et celle de t2. Si tu ne le fais pas, ton résultat sera bien évidemment faux entre un t1 pris avant minuit et un t2 pris le lendremain
3) les durées ne sont pas des dates (ni des heures, au sens de "quelle heure est-il ?")...

[ilank]

3) les durées ne sont pas des dates (ni des heures, au sens de "quelle heure est-il ?")...

Heu... Pourtant les dates sont des durées.
Exemple

Code :

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

msgbox CDate(39955.71875)

[laetitia]

bonjour mdambreville ilank l'ami ucfoutu le forum essai comme cela

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox797_AfterUpdate()
On Error Resume Next
TextBox811.Value = Format((TimeValue(TextBox797.Value) + 1) - TimeValue(TextBox798.Value), "hh:mm")
End Sub
Private Sub TextBox598_AfterUpdate()
On Error Resume Next
TextBox811.Value = Format((TimeValue(TextBox797.Value) + 1) - TimeValue(TextBox798.Value), "hh:mm")
End Sub

ps je renseigne sous la forme hh:mm

[ucfoutu]

Heu... Pourtant les dates sont des durées.
Exemple

Code :

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

msgbox CDate(39955.71875)

Bonjour, ilank...

Non, les dates ne sont pas des durées ...
Nous sommes par exemple aujourd'hui le 22 mai 2009 et il est 18 h 10 ....çà, c'est une date et une heure) et non une durée. Une date, une heure sont représentatifs (repmères) d'un instant, pas d'une durée.

La durée est l'écart entre deux instants (repères dans le temps et n'est ni une date, ni une heure (qui ne sont que des repères dans le temps)
Par analogie : une abscisse sur un vecteur est un repère, pas une dimension. La différence entre deux abscisses est, elle, une dimension.
Te viendrait-il à l'idée de définir une dimension (différence entre les 2 abscisses) par une nouvelle abscisse ? Non, hein ....

Il en va de même pour ce qui est des dates, des heures et des durées.

Comment te vient-il alors à l'esprit de représenter une durée par une heure et non des unités de temps ? Si, ensuite, tu veux exprimer cette durée sous la même forme qu'une heure, tu en as le droit, mais ce ne sera jamais une heure !

Les anglais (entre autres) ont moins de difficultés à comprendre cette différence. l'heure donnée s'exprime différemment, dans leur langue, que la durée écoulée, même lorsqu'ils utilisent des heures et des minutes pour exprimer la durée.