Nombre décimal a transformer en heures et min [Résolu/Fermé]

Signaler
-
 daniel -
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

2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 098
Bonjour,
Je ne sait pas avec quel language tu travail mais en saisissant les décimales par ex 0.25 en %
faire 25 / 100 * 60 = 15 en minutes
A+
118
Merci

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez Comment Ça Marche

CCM 57497 internautes nous ont dit merci ce mois-ci

merci beaucoup
j vais pouvoir reussir mon dns de maths de 4eme(je comprenais pas)
-MERCI BEAUCOUP !!!!
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 098
Bonjour,
En VB
A = 4,25
Heure = Fix(A)
Minute = ((A - heure) /100) * 60
Resultat = heure & ":" & minute
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
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 098
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