Formulaire - calcul avec des temps

Bonjour

dans un formulaire, j'ai des boites textes qui calcule la difference entre 2 dates/temps (exemple du code utilise ci dessous

le resultat apparait donc sous la forme hh:mm:ss

Dim sngMinutes, sngHeures, sngJours As Single
    Dim intSecondes, intMinutes As Integer
    Dim lngFullHeures, lngFullMinutes, lngSecondes As Long
    lngSecondes = DateDiff("s", CDate(CARGO2016.Start.Value), CDate(CARGO2016.STOP_TIME.Value))
    sngMinutes = lngSecondes / 60
    sngHeures = sngMinutes / 60
    sngJours = sngHeures / 24
    lngFullMinutes = Int(sngMinutes)
    lngFullHeures = Int(sngHeures)
    intSecondes = CInt((sngMinutes - lngFullMinutes) * 60)
    intMinutes = Int((sngHeures - lngFullHeures) * 60)
    CARGO2016.GROSS_DEM.Value = lngFullHeures & ":" & Format(intMinutes, "00") & ":" & Format(intSecondes, "00")

Maintenant j'ai besoin de calcule des differences ou d'ajouter les boites de temps entre elle.

ex: boite gross dem (d'apres le code ci dessus) = 37:30:00

boite "shifting" (qui calcule aussi la difference entre 2 dates calque sur le code ci dessus)= 8:36:00

j'ai besoin de faire la difference entre les 2 et donc d'avoir le resultat : 37:30:00 - 08:36:00 = 28:54

y a t il un moyen simple de le faire? puis je adapter le code ci-dessus?

Je t'ai répondu dans le sujet précédent.

Bonsoir,

Je n'ai pas vu le sujet précédent... mais pour faire une différence entre deux valeurs temps je ne connais rien de mieux que :

ValeurTemps1 - ValeurTemps2

Alors, ton code me laisse rêveur !

En principe, j'évite aussi de passer par des TextBox pour ce genre de calcul...

Cordialement.