Addition d'heure et minutes

Version imprimable

12/01/2009, 10h34
l0quito

Addition d'heure et minutes

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?
12/01/2009, 10h46
Pol63

tadate.addminutes()

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

Voici mon code pour soustraire les minutes
Code:

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?

Salut, tu peux utiliser :

Code:

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)

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

Code:

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)

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

Code:

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