[VB.NET] Problème de modulo

Version imprimable

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 ?
Code:

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)
Merci pour votre aide

03/09/2006, 13h25
Eome

Tu as deja des fonctions pour manipuler des timestamps, notemment avec System.DateTime
03/09/2006, 16h49
arno2000

Salut,

A mon avis, tu dois remplacer les / par des \ pour avoir la division entière.

Et le /1 sert à rien ;)
03/09/2006, 17h03
zooffy

Merci pour cette piste, mais çà marche pas.
A l'entrée ma donnée est un nombre de seconde calculée et se trouve de type FLOAT dans SQL Server. C'est pour çà que je fais des calculs pour déterminer les heures, minutes, secondes.

J'ai pas trouvé de méthode dans DateTime pur convertir un nombre de seconde en String.

Mais en fait mon souci se passe surtout sur le fait que MOD fait un arrondi assez dérangeant.

Merci ARNO2000, en mettant les deux signes l'un à côté de l'autre, je peux voir qu'ils ne sont pas pareil. Dans mon bouquin, j'avais pas remarqué, vu qu'il sont pas au même endroit. c'est vraiment couillon comme truc.

Mais l'ennui c'est que çà donne pas ce que je cherche. Mais je dois merder sur les secondes et les milièmes.

Je vais continuer à plancher et si je trouve pas je reviendrais ici.

@+

Bon, j'ai continé mais j'ai toujours pas réussi.

Visiblement c'est pas Modulo qui déconne mais la division entière qui fais un arrondi alors qu'on lui demande rien.

Voici mon code actuel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
            Dim hci, mci As Integer
            Dim mili, sci As Double
            Dim testtime As DateTime
            hci = drResult.GetValue(3) \ 3600
            Hc = hci & " H "
            mci = (drResult.GetValue(3) - (hci * 3600)) \ 60
            Mc = mci & " m "
            sci = drResult.GetValue(3) - (hci * 3600) - (mci * 60)
            Sc = (sci \ 1) & " s "
            mili = System.Math.Round((drResult.GetValue(3) - (hci * 3600) - (mci * 60) - (sci \ 1)), 3)
            Mic = mili * 1000 & " milième"
            drowTemps = dtResu.NewRow
            drowTemps(0) = drResult.GetValue(3)
            drowTemps(1) = Hc & Mc & Sc & Mic

et le résultat est toujours de 6 minutes et 24 secondes, alors qu'il n'y en a que 23( je passe le milième qui forcément faux).

Merci pour votre aide.

Tu as certainement une très bonne raison de réinventer des fonctionnalités qui existent déjà, mais voici quand même les solutions canoniques, des fois que...
Code:

1 2 3 4 5 6 7 8 9 // je garde l'heure courante DateTime stamp = DateTime.Now // je fais mes opérations // je calcule la durée TimeSpan duree = (DateTime.Now - stamp); // j'affiche la durée System.Diagnostics.Debug.WriteLine("Mes operations ont duré :"+duree.ToString());
Dans les membres de TimeSpan tu as les secondes et les millisecondes