Convertir format heure/minute en décimale [Résolu/Fermé]

Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
1 août 2019
- - Dernière réponse : bidounet84
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
1 août 2019
- 24 janv. 2018 à 15:03
Bonjour,
J'ai un fichier avec des données du type 04:00:00 et 01:30:00...
Il me faut pour mon import futur les mettre en format décimal sur le même exemple que au dessus çà donne 4 et 1,5
Comment fait j'ai tenté :
TRVFINITION.Cells(ligne_Compléter, 8).Value = Format(BDD.Cells(ligne_àcopier, 8), "0.00")
Afficher la suite 

5 réponses

Messages postés
13817
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 octobre 2019
400
0
Merci
Le calcul je le connais à savoir diviser par 60 les minutes pour obtenir les minutes en décimal.
Je demande comment le gérer dans une macro.
Messages postés
6270
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
13 octobre 2019
397
0
Merci
Bonjour,

comme ceci:

Sub TraduireHeureEnDécimale(ByVal D As Date)
Dim TB, Resultat As Single
TB = Split(D, ":")
Resultat = TB(0) + ((TB(1) * 100) / 60) / 100
MsgBox Resultat
End Sub


et pour appeler:

TraduireHeureEnDécimale ("01:45")


et si tu veux arrondir à 2 décimales:

Sub TraduireHeureEnDécimale(ByVal D As Date)
Dim TB, Resultat As Single
TB = Split(D, ":")
Resultat = Format(TB(0) + ((TB(1) * 100) / 60) / 100, "0.00")
MsgBox Resultat
End Sub




Messages postés
13817
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 octobre 2019
400
0
Merci
Comme ça
Sub toto()
   Dim heure As Date
   heure = "00:01:30"
   Dim heureDecimale As Double
   Dim minutes As Double
   Dim secondes As Double
   minutes = Minute(heure)
   secondes = Second(heure) / 60
   heureDecimale = Minute(heure) + Second(heure) / 60
End Sub 
 
--
Quand j'étais petit, la mer Morte n'était que malade.
George Burns
Whismeril
Messages postés
13817
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
13 octobre 2019
400 -
Ha je n'avais pas réactualisé la page, et le_Pivert (que je salue) a répondu entre temps.
Messages postés
401
Date d'inscription
jeudi 28 août 2008
Statut
Membre
Dernière intervention
1 août 2019
48
0
Merci
Merci pour vos différents retour.