OVH Cloud OVH Cloud

Soustraire deux "Time"

5 réponses
Avatar
Annie L.
Je voudrais savoir comment fait-on pour soustraire 2 "Times".
Exemple: Text1 = 10:45
Text2 = 16:30

Le résultat doit être : 5.75 heures
Merci de vos commentaires!

5 réponses

Avatar
Joseph
essaie cette fonction Microsoft.VisualBasic.DateDiff
Avatar
Annie L.
N'y-a-t-il pas une fonction spécifique pour ce genre de problème?
J'ai trouvé une méthode avec ce que tu m'as suggéré, mais le résultat est
345 minutes. Il faut que je calcule lenombre d'heures et le reste en
pourcentage sur 100 pour avoir comme résultat 5.75 heures. Il y a sûrement
une autre façon de procéder???
Merci pour ton aide!

"Joseph" wrote:

essaie cette fonction Microsoft.VisualBasic.DateDiff





Avatar
Fred
Bonsoir,
345 / 60 = ?
5.75 ;)

"Annie L." a écrit dans le message de
news:
N'y-a-t-il pas une fonction spécifique pour ce genre de problème?
J'ai trouvé une méthode avec ce que tu m'as suggéré, mais le résultat est
345 minutes. Il faut que je calcule lenombre d'heures et le reste en
pourcentage sur 100 pour avoir comme résultat 5.75 heures. Il y a sûrement
une autre façon de procéder???
Merci pour ton aide!

"Joseph" wrote:

> essaie cette fonction Microsoft.VisualBasic.DateDiff
>
>
>


Avatar
Ghislain Proulx
Bonjour Annie,

Voici une solution un peu plus 'compliquée' mais très efficace.

Dim delta As Double
Dim tDebut As New TimeSpan(10, 45, 0) ' 10:45
Dim tFin As New TimeSpan(16, 30, 0) ' 16:30
delta = New TimeSpan(tFin.Ticks - tDebut.Ticks).TotalHours
MessageBox.Show(delta) ' Donne bien 5.75

Ghislain Proulx, MCP

"Annie L." a écrit dans le message de
news:
Je voudrais savoir comment fait-on pour soustraire 2 "Times".
Exemple: Text1 = 10:45
Text2 = 16:30

Le résultat doit être : 5.75 heures
Merci de vos commentaires!


Avatar
Xharkin
Annie L. :

Je voudrais savoir comment fait-on pour soustraire 2 "Times".
Exemple: Text1 = 10:45, Text2 = 16:30



Le résultat doit être : 5.75 heures
Merci de vos commentaires!



Dim Debut As Date = Convert.ToDateTime("10:45")
Dim Fin As Date = Convert.ToDateTime("16:30")
Dim Ecart As Double = Fin.Subtract(Debut).TotalHours

' => Ecart = 5.75