Salut
Je dois faire un calcul de temps et transformer un nombre de seconde en Heure, minute seconde.
Selon mon code plus bas, j'arrive pas trop mal à mes fins sauf que le résultat test faux.
Pour une donnée de base de 383.56734311302 voic ce que j'obtiens : 0 H 6 m 24 s
On aura vite fait de remarquer que cela devrait donner 23 secondes.
Alors ma question est : comment faire pour que le modulo n'arrondisse pas (à suposer que c'est lui qui le fait) ?
Subsidiairement : comment je peux récupérer les milièmes pour les mettre à la suite ?
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Dim hci, mci, sci As Integer hci = drResult.GetValue(3) / 3600 Hc = hci & " H " mci = (drResult.GetValue(3) Mod 3600) / 60 Mc = mci & " m " sci = ((drResult.GetValue(3) Mod 3600) Mod 60) / 1 Sc = sci & " s " drowTemps = dtResu.NewRow drowTemps(0) = drResult.GetValue(3) drowTemps(1) = Hc & Mc & Sc dtResu.Rows.Add(drowTemps)
Partager