Discussion :

[pascb423]

Bonjour, je cherche sur le net mais je ne trouve pas.
comment récupérer toutes les dates et les afficher dans une textbox entre 2 textbox avec des dates.
j'ai regardé avec datediff mais datediff affiche le nombre de jour entre les dates.
merci

[clementmarcotte]

Bonjour,

Je ne trouve pas ta question très claire.

Veux tu récupérer les dates existantes pour lesquelles tu as des données dans un intervalle de temps déterminé ?

ou

Veux tu générer une série de nouvelles dates entre deux dates déterminées ?


ou

Autre chose ?

[pascb423]

oui, je Veux récupérer les dates existantes pour lesquelles j'ai une textbox avec la date de départ et une autre avec la date de fin et j'aimerai récupérer les dates de tous les jours entre les 2 texbox.
j'espère que c'est un peu plus clair?

[rv26t]

Bonjour
avec datediff et dateadd

Code :

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

1
2
3
4
5
6
7
8
9
        Dim dt1 As Date = CDate("29/10/2016")
        Dim dt2 As Date = CDate("11/11/2016")
        Dim sb As StringBuilder = New StringBuilder()
        ' avec date debut et date fin incluses
        sb.AppendLine(CStr(dt1))
        For i As Integer = 1 To CInt(DateDiff(DateInterval.Day, dt1, dt2))
            sb.AppendLine(CStr(DateAdd(DateInterval.Day, i, dt1)))
        Next
        MessageBox.Show(sb.ToString)

Le cours VB.NET de Philippe Lasserre est une mine d'information pour apprendre

[pascb423]

merci beaucoup

[pascb423]

encore une petite question:
j'ai le code que vous m'avez donné que j'ai modifié un peu pour remplir une combobox mais dans la combobox ca met les dates sur une ligne, est t'il possible de remplir la combobox avec une date par ligne?

Code :

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

1
2
3
4
5
6
7
8
9
Dim dt1 As Date = CDate(lireINI("jfv", "1"))
        Dim dt2 As Date = CDate(lireINI("jfv", "2"))
        Dim sb As StringBuilder = New StringBuilder()
        ' avec date debut et date fin incluses
        sb.AppendLine(CStr(dt1))
        For i As Integer = 1 To CInt(DateDiff(DateInterval.Day, dt1, dt2))
            sb.AppendLine(CStr(DateAdd(DateInterval.Day, i, dt1)))
        Next
        Me.ComboBox4.Items.Add(sb.ToString)

[rv26t]

Il faut faire le Add dans la boucle. La variable sb n'est là que pour l'exemple afin de voir facilement le résultat obtenu, vous pouvez donc la supprimer.
Lisez le cours vous pourrez apprendre beaucoup de chose, il y a une section sur les listbox et combobox.

[pascb423]

bonjour, j'avoue que je suis unpeu perdu:
di je met le Me.ComboBox4.Items.Add(sb.ToString) dans la boucle je remplace par quoi le sb.tostring?

[rv26t]

Ben, par ce que vous voulez ajouter dans la combobox, cest à dire les dates.

Code :

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

1
2
3
4
5
6
    Dim dt1 As Date = CDate(lireINI("jfv", "1"))
    Dim dt2 As Date = CDate(lireINI("jfv", "2"))
    ComboBox4.Items.Add(CStr(dt1)) ' pour éviter l'appel à la fonction dateadd avec 0 jour à ajouter => ainsi la boucle démarre à 1
    For i As Integer = 1 To CInt(DateDiff(DateInterval.Day, dt1, dt2))
        ComboBox4.Items.Add(CStr(DateAdd(DateInterval.Day, i, dt1)))
    Next

[pascb423]

merci infiniment