Nombre décimal a transformer en heures et min

Résolu/Fermé
isa - 16 avril 2008 à 17:53
 daniel - 22 févr. 2020 à 17:49
Bonjour,
pouvez vous m'aider, je souhaite obtenir l'équivalence d'un nombre décimal exemple 1.25 (soit 1 heures et 25 centièmes) en résultat soit 1 heure et 15 minutes

merci de votre aide
isa
A voir également:

2 réponses

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 avril 2009 à 05:14
Bonjour,
En VB
A = 4,25
Heure = Fix(A)
Minute = ((A - heure) /100) * 60
Resultat = heure & ":" & minute
50
Quel rapidité, c'est vraiment apprécié.

Je viens de comprendre le principe pour transformer une donnée décimale en format heure, par contre, je suis présentement sur ACCESS.

Je vous explique ma situation:

Je calcule un champ qui donne la durée ([2009-03-11 23:38:23] - [2009-03-11 16:37:23]
--> le résultat dans ce cas ci me donne 7,016666667

1- Quelles sont les opérations dans ACCESS que je dois effectuer pour faire ce que vous m'avez expliqué plus haut?
2- Quand vous parlez de "Heure = Fix(A)", que signifie le Fix?


Encore une fois merci.
Ce forum est une révolution. Vive la magie du transfert de connaissance par l'internet
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
2 avril 2009 à 07:37
Beh ont fait ce qu'ont peu :)
Fix = la partie entière de la variable
le résultat.. 7,016666667
La partie entière est le nombre de jour,moi,année et la partie décimale c'est heure,minute,seconde
tu peu formater ta donnée en
Dim Txt As String, Txt2 As String
a = CStr(7.016666667)
Txt = Format(a, "dd/mm/yyyy hh:mm:ss")
Txt2 = Day(Txt) & "/" & Month(Txt) - 1 & "/" & Year(Txt) - 1900 & " " _
& Hour(Txt) & ":" & Minute(Txt) & ":" & Second(Txt)
'ce qui donne 6 jour et 24 minute

Pour avoir la différence il faut enlever 1900 ans
1