Nombre décimal a transformer en heures et min

Résolu/Fermé
isa -  
 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

lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
En VB
A = 4,25
Heure = Fix(A)
Minute = ((A - heure) /100) * 60
Resultat = heure & ":" & minute
50
Chris
 
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   Statut Contributeur Dernière intervention   1 191
 
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