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)