Durée entre deux temps timevalue

Bonjour,

Je poursuis ma réflexion sur timevalue initiée lors d'un précédent post.

Initialement, je récupère deux temps au format texte type 12h00.
Je les convertis en donnée temps : 12:00:00
Et je lui donne une correspondance avec le type Date

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

dim h_ini as date dim h_fin as date dim res as single   h_ini=timevalue("08:00:00") h_fin=timevalue ("12:00:00")   Debug.print h_ini <-------- retourne 08:00:00 Debug.print h_fin <-------- retourne 12:00:00   'Calcul de la différence res=h_fin-h_ini <-------- retourne 0.16666

---

Mon objectif principal est de récupérer la réponse 04:00 pour 12:00-08:00

Mais j'ai l'impression de ne pas bien saisir la fonction timevalue. Certes elle me retourne un nombre décimale mais pourquoi une si petite valeur ?

Bonjour

1 heure est 1/24ème de jour (unité de temps dans Excel) donc 0,0416666666666667. C'est le format qui fait le reste.

Bonjour,

et avec

Code:

---

dim res as single

---

il ne te l'affichera pas au format date mais en décimal, ce que tu lis.
eric

Bonjour

Code:

---

1 2 3 4 5

Dim DEB As Date Dim FIN As Date DEB = CDate("08:00:10") FIN = CDate("12:05:01") MsgBox Format(FIN - DEB, "hh:mm:ss")

---

et pour s'amuser un peu dans ce genre de foulée :

Code:

---

1 2 3 4 5

Dim DEB As Date Dim FIN As Date DEB = CDate("01/01/2001 08:00:10") FIN = CDate("04/01/2001 09:15:12") MsgBox Format(FIN - DEB + 1, "d \jour(\s) hh \heure(\s) mm \mi\nute(\s) ss\se\co\n\de(\s)")

---

EDIT : les plus futés sauront pourquoi j'ai "échappé" le "c" ;)

Bonjour,

Respect...

Merci

Citation:

---

Envoyé par unparia

EDIT : les plus futés sauront pourquoi j'ai "échappé" le "c" ;)

---

Sans être forcément futé, mais un brin curieux

Citation:

---

Affichage de la date sous la forme ddddd et de l'heure sous la forme ttttt, dans cet ordre. Affichage des informations relatives à la date seulement si le numéro de série de date ne comporte aucune partie décimale ; affichage des informations relatives à l'heure seulement en l'absence de partie entière.

---

http://jpcheck.developpez.com/tutori...rmat-dans-vba/
section [II-b-iii. Formats de date/heure définis par l'utilisateur]

Bonjour joe.levrai
pas beaucoup de différences entre ce que l'on lit dans le lien que tu montres et ... celui de msdn --->>

Citation:

---

https://msdn.microsoft.com/fr-fr/lib.../gg251755.aspx

---

Mais ni l'un ni l'autre ne parlent de la nécessité de l'échappement du "c" dans certains cas :D
Une piste (mais ce devrait faire l'objet d'une discussion à part entière) : ce "c" peut astucieusement être utilisé par rapport à l'année 1900, à condition de s'en tenir à des durées temporelles (seules uniotés valors valables : jours, heures, minutes et secondes, les mois et années étant à exclure puisqu'étant calendaires et non temporelles) et non calendaires.