Récupérer les dates entre 2 dates

Version imprimable

28/10/2016, 16h49
pascb423

Récupérer les dates entre 2 dates

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
28/10/2016, 18h02
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 ?
28/10/2016, 18h35
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?

Bonjour
avec datediff et dateadd

Code:

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 ;)

29/10/2016, 01h20
pascb423

merci beaucoup

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:

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)

29/10/2016, 17h05
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.
29/10/2016, 19h17
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?

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

Code:

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

29/10/2016, 22h39
pascb423

merci infiniment