Discussion :

[l0quito]

Bonjour, voilà mon problème :

J'ai une heure (12:00:00 PM) et un nombre de minutes(00:30 qui en DateTime est égal à 12:30:00 AM) et j'aimerai additionner les deux pour qu'il m'affiche (12:30:00 PM)

Pour la soustraction j'ai réussi avec un TimeSpan qui me soustrait 30min.
Quelqu'un sait comment additionner avec un TimeSpan ou avec une autre solution?

[Pol63]

tadate.addminutes()

ne pas stocker une durée dans une variable de type date/heure

[l0quito]

Voici mon code pour soustraire les minutes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ts1 As TimeSpan
        Dim time1 As DateTime = dtpService.Value
        Dim time2 As DateTime = dtpHourBefore.Value
 
        ts1 = time1 - time2
        Dim Hour As Integer = ts1.Hours
        Dim Minutes As Integer = ts1.Minutes
 
 
        tbxResul.Text = Hour & ":" & Minutes
    End Sub

Maintenant j'aimerai faire la même chose en additionnant, mais le problème est que il se peut qu'il y est des heures a soustraire (ex: 1:00:00).
Donc sa ne marcherai pas le "tadate.AddMinutes"

Quelqu'un a une idée?

[eikeshi]

Salut, tu peux utiliser :

Code :

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

1
2
3
4
5
Dim dtdate As TimeSpan
Dim dtdate2 As TimeSpan
Dim ts As New TimeSpan(Valeur_en_nanosecondes)
dtdate = Now.TimeOfDay
dtdate2 = dtdate.Add(ts)

[eikeshi]

J'ai mieux, prends plutôt ce code.

Code :

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

1
2
3
4
5
Dim tsHour As TimeSpan
Dim tsHour2 As TimeSpan
Dim ts As New TimeSpan(0, 0, 30, 0, 0)
tsHour = Now.TimeOfDay
tsHour2 = tsHour.Add(ts)

[l0quito]

Merci eikeshi, grace à ton code j'ai trouver quelque chose qui fonctionnait.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Déclaration des heures 
        Dim time1 As DateTime = dtpService.Value
        Dim EndDate As String = Convert.ToString(time1.ToShortTimeString)
 
        Dim time2 As DateTime = dtpHourBefore.Value
        Dim HourAfer As String = Convert.ToString(time2.ToShortTimeString)
 
        'Décomposition des heures
        Dim str(1) As String
        str = HourAfer.Split(":")
 
        Dim str2(1) As String
        str2 = EndDate.Split(":")
        'Aféctation des TimeSpan
        Dim tsHour As New TimeSpan(0, str(0), str(1), 0)
        Dim tsHour2 As TimeSpan
 
        Dim ts As New TimeSpan(0, str2(0), str2(1), 0, 0)
        'Addition des heures
        tsHour2 = tsHour.Add(ts)
        'Affichage
        tbxResul.Text = tsHour2.Hours & ":" & tsHour2.Minutes
 
    End Sub