Calcul heures dans textbox

Version imprimable

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:

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:

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:

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

22/05/2009, 14h55
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 ?")...
22/05/2009, 17h16
ilank

Citation:

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:

msgbox CDate(39955.71875)

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

Code:

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

22/05/2009, 18h09
ucfoutu

Citation:

Envoyé par ilank

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

Code:

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.
22/05/2009, 18h15
ucfoutu

A l'ecole primaire, amie laetitia... c'est là que l'on me l'a enseigné.:ccool:

et pour y voir plus clair, passons à l'anglais :
He started at two fiteen (or fifteen past two ... selon l'anglais) and reached here at three twentyfive (or twentyfive past three). It therefore needed one hour and twelve minutes to reach here (et pas it therefore needed twelve past one ni one twelve)

même chose en espagnol...

Il n'y a qu'en français, qu'on se mélange les pinceaux... et qu'on finit par confondre heure et durée...

On se trompe heureusement moins avec les dates (sinon, te rends-tu compte, on donnerait une date au lieu de donner l'âge ... entre autres joyeusetés de l'espèce !!!!)

amitiés

EDIT : ajouton qu'une durée temporelle ne peut s'exprimer qu'en jours, heures, minutes et secondes (mois et années exclus, donc). L'âge, lui, ne représente pas une durée temporelle mais une durée calendaire....
22/05/2009, 18h38
ilank

Bonsoir à tous,

je ne vais pas faire de polémique pour si peu.
Mais pour être précis ucfoutu, nous sommes le 22 mai 2009 après Jésus Christ et il est 18h et 10mn après minuit. Une date n'a pas de réalité; ce n'est que la représentation d'une durée avec une date de référence. Et pour rappel, nous n'avons pas tous la même date de référence.

Maintenant, l'informatique n'ayant rien n'inventé; une date sur ton ordinateur n'est rien d'autre qu'un nombre. 39955 est la date d'aujourd'hui, c'est aussi le nombre de jours qui nous sépare du 1/1/1900 ou du 31/12/1899.

Sujet déjà evoque ...

Bonjour

Il faut bien utiliser la fonction datediff mais avec le temps écoulé en seconde

puis il suffira de décomposer comme dans le code ci-dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 temps = DateDiff("s", Me.Date_Demande, Me.Date_fin) jours = temps \ 86400 ' on enleve les jours temps = temps - jours * 86400 on enleve les heures heures = temps \ 3600 on enleve les heures temps = temps - heures * 3600 minutes = temps \ 60 on enleve les minutes secondes = temps - minutes * 60 Et on affiche le résultat par concaténation
Voila bon vent :ccool:

22/05/2009, 19h40
ucfoutu

Bon...
Et dans la seule mesure où les deux heures sont dans la même journée, hein (me relire ....)... sinon ===>>> patatrac (et il faudra bien utiliser date + heure dans les textboxes de départ et d'arrivée et utiliser un code très légèrement différent de celui-ci)
Voilà qui, d'un seul coup :
- fait le calcul nécessaire de durée entre les deux dates
- transpose sous la forme hh:mm (si l'on y tient tant !)

Code:

TextBox811 = Format(TimeSerial(0, DateDiff("n", CDate(TextBox798), CDate(TextBox797)), 0), "HH:MM")

En utilisant TimeSerial et en partant de minuit et en ajoutant la difference en minutes trouvée par DateDiff, puis en formatant "HH:MM", j'ai le résultat recherché (dont je continue à contester son typage en date !)
22/05/2009, 19h58
Lynx92260

Juste le format à changer
dans le cas il est ecoule plus de 99h99mm9ss

Le format dans ces cas la est [h]:mm:ss

Soit
Code:

1 2 TextBox811 = Format(TimeSerial(0, DateDiff("n", CDate(TextBox798), CDate(TextBox797)), 0), "[h]:mm:ss")
Alors ucfoutu :mouarf:

Salut
Vu que j'aime la polémique ^^

En vba le format Date est en faite un format DateTime, représenté par un Double, ce qui veux dire qu'entre chaque "DateTime" il y a un écart de jour, d'heure, de seconde. La partie entière du double représente le jour et la partie décimale l'heure, minute, seconde sous forme de dixième de jour.

Soit le code suivant
Code:

1 2 3 4 5 6 7 8 9 10 Sub essai() Dim DDebut As Date, DFin As Date Dim DeltaDheure As Double DDebut = CDate("01/05/1980 16:45:28") DFin = CDate("02/05/1980 17:45:28") DeltaDsec = CDbl(DFin) - CDbl(DDebut) [A1] = DeltaDheure End Sub
On obtenir en A1 -> 1,04166666666788
ce qui correspond a 1jour et 0.0416... dixième de journée
soit
1jour => 24heures (si on veut un résultat en heure)
0.0416 => grossomodo 1h ... ma calculette a calé sur le nombre de décimal
suis je bête... la calculette vindose va pas caler elle, donc 1h et quelque poussières nanoscopiques, surement dut aux différents arrondis fait par excel.

Ceci dis datediff est fait pour ;)

a++
Qwaz

22/05/2009, 20h18
Qwazerty

Ha ben pour le format
La par contre y'a pas polémique possible, on ne stock pas une durée dans un format DateTime ... c'est une ineptie, puisque si on prend 100 jour 15h et qu'on balance ça dans un DateTime .. vb va traduire 100 jour en jour mois année ... donc ça correspond plus a rien après.

Si on veut un résultat en jour heure min sec
il suffit de ne pas multiplier par 24 :) .
Il faudra seulement retravailler la partie décimal pour obtenir le nombre d'heure, minutes, seconde

A++
Qwaz

Bonsoir à tous,

en supposant que les textbox contiennent bien des heures et minutes au format "hh:mm", peut-être ceci.

Code:

1
2
3
4
5
6
Private Sub GetElapseTime()
 dim H1 As Date, H2 As Date
 If Not IsDate(TextBox797.Value) Or Not IsDate(TextBox798.Value) Then Exit sub
  H1=CDate(TextBox797.Value) : H2=CDate(TextBox798.Value)
  TextBox811.Value=CDate(CSng(h2-h1+ Iif(h2-h1<0,1,0)))
end sub

Code:

1
2
3
4
5
6
Private Sub TextBox797_AfterUpDate()
 GetElapseTime
End sub
Private Sub TextBox798_AfterUpdate()
 GetElapseTime
End sub

22/05/2009, 20h40
laetitia

re, sans vouloir faire de polemique.
j ecris 22:15 dans textbox798 puis 0:15 dans textbox797 j'ai bien 2:00 dans textbox811
j'ecris 10:00 dans textbox798 puis 22:15 j'ai bien bien 12:15 dans textbox811????
je comprends pas ou j' ai loupe quelque chose !!!! excuse moi !!!!
22/05/2009, 20h45
ucfoutu

Vous n'auriez pas comme l'impression que la réponse précise a été donnée (une seule ligne de code) pour une durée comprise entre deux heures sous la forme hh:mm (donc forcément dans la même journée) ?
non ?
Le problème demeure (pour l'instant, car on y reviendra au besoin) entier si chevauchement de jours, mais ce : quel que soit le code, tant que l'on se contente de mettre lans les textbox hh:mm (donc sans date)..., ce qui est le cas de ce que fait mdambreville ...:lol:

Salutations à tous ...

Edit :

Pour laetitia,

l'heure d'arrivée doiut bien évidemment être supérieure à celle de départ !
Mais tu vas voir (2 scondes et je reviens)...

et voilà : même si l'utilisateur se trompe entre départ et arrivée :

Code:

TextBox811 = Format(TimeSerial(0, Abs(DateDiff("n", CDate(TextBox798), CDate(TextBox797))), 0), "HH:MM")
22/05/2009, 20h58
Qwazerty

Salut
Je vais etre encore plus terre a terre
Dit mdambreville que cherches tu a réaliser exactement?
Par ce que si c'est des horaire de train en effet ca risque d'être problématique ton format "hh:mm", mais si c'est pour des horaires du bureau sortie d'une pointeuse... ben la je doute que les journées de travail soient a cheval entre 2 Date, a moins de faire les 3-8.

a++
Qwaz

bonjour à tous,

j'ai réussi en modifiant un peu le code de laetitia(en sachant que mon calcul d'heures se fait dans la même journée)

Code:

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

merci à tous

re, je pense pas que rajouter ces lignes soit utile !!!

Code:

1
2
3
4
Private Sub TextBox811_AfterUpdate()
On Error Resume Next
TextBox811.Value = Format((TimeValue(TextBox798.Value)) - TimeValue(TextBox797.Value), "hh:mm")
End Sub

Fuseau horaire GMT +2. Il est actuellement 22h35.