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
 

Statistiques des forums

Discussions
312 329
Messages
2 087 331
Membres
103 519
dernier inscrit
Thomas_grc11