Discussion :

[Renardo]

Bonjour,
j'ai un petit souci au niveau de la conversion numerique en heure et minute
Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Heure: Ent(([SommeDeHeureTravailler]*3600)/3600) & ":" & (([SommeDeHeureTravailler]*3600) Mod 3600)/60

Le resulta me donne:
Numerique: 1774.13
conversion en heure : 1774:7,5166666 Ext...
alors que je voudrais 1774:07
y a t'il quelque chose qui cloche dans mon code
Merci d'avance pour votre aide

[Tofalu]

Hello

Une piste

Sub convertTime()
Dim n As Double
n = 1774.13
n = n * 3600
MsgBox n \ 3600 & ":" & Format((n Mod 3600) \ 60, "00") & ":" & Format((n Mod 3600) Mod 60, "00")
End Sub

Affiche 1774:07:48

[Renardo]

Merci pour ton aide