Discussion :

[bastien]

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 :

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

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 ?

[78chris]

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.

[eriiic]

Bonjour,

et avec

Code :

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

dim res as single

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

[unparia]

Bonjour

Code :

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

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 :

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

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"

[bastien]

Bonjour,

Respect...

Merci

[joe.levrai]

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

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

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]

[unparia]

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

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
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.