Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

heures

  • Initiateur de la discussion Noel
  • Date de début
N

Noel

Guest
Comment convertir un nombre décimal en heures et minutes, par exemple 0,4 en 0h 24 mn
 

Jacques87

XLDnaute Accro
Bonjour Noel, Jocelyn

Voici ce que j'ai trouvé le jpour où je me suis posé la même question :

Exemple: ?ConvMinutesEnHeures(ConvHeuresMinEnMinutes(8.4)) = 8:24

Public Function ConvHeuresMinEnMinutes(varTemps As Single) As Long
''Objectif: convertir une durée entrée en dixièmes d'heure en un nombre de minutes
'Exemple: 2.4 h = 144 minutes
Dim HeuresMin As Long, Minutes As Single, NbrePosHeure As Byte, varTemps1 As String
If IsNull(varTemps) Then Exit Function
varTemps1 = Format(varTemps, '0000.00')
NbrePosHeure = InStr(varTemps1, '.') - 1
HeuresMin = 60 * Left(varTemps1, NbrePosHeure)
Minutes = (varTemps - Int(varTemps)) * 60
ConvHeuresMinEnMinutes = HeuresMin + Minutes
End Function
 

Jacques87

XLDnaute Accro
Bonjour mon ami André

Comme je me sens ridicule ... une bonne Duvel pour me retaper sans quoi je crois que je vais déprimer

Comme quoi on va chercher bien loin ce qui est près de soi, mais il est vrai que les formules (même simples) et moi on n'est pas très copain

Toutes mes amitiés
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…