Sujet Précédent Sujet Suivant

Convertir format heure/minute en décimale

Résolu/Fermé
bidounet84 Messages postés 416 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 - 23 janv. 2018 à 20:17
bidounet84 Messages postés 416 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 - 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")
A voir également:

5 réponses

Réponse 1 / 5
Whismeril Messages postés 19025 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 19 avril 2024 929
23 janv. 2018 à 22:01
Bonsoir
C’est des maths ça
http://www.warmaths.fr/MATH/CALCUNUM/NombrDecimo/syst%20%20sexa1.htm
0
Réponse 2 / 5
bidounet84
23 janv. 2018 à 22:59
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.
0
Réponse 3 / 5
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 24 janv. 2018 à 09:27
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




0
Réponse 4 / 5
Whismeril Messages postés 19025 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 19 avril 2024 929
24 janv. 2018 à 09:28
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
0
Whismeril Messages postés 19025 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 19 avril 2024 929
24 janv. 2018 à 09:28
Ha je n'avais pas réactualisé la page, et le_Pivert (que je salue) a répondu entre temps.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
bidounet84 Messages postés 416 Date d'inscription jeudi 28 août 2008 Statut Membre Dernière intervention 22 mai 2023 80
24 janv. 2018 à 15:03
Merci pour vos différents retour.
0

Discussions similaires

Excel heures en centième
jeanL -
marcel -

15 réponses
[EXCEL 2000] Convertir heure en décimal
shp -
Mcnell1 -

23 réponses
Menace "Interpol" après webcam coquine
diego34 -
Panth33ra -

4 réponses
convertir heure minite en décimal
simon -
baladur13 -

8 réponses
Je tiens combien de temps avec 2Go d'internet ?
champi100 -
dadout -

7 réponses