OVH Cloud OVH Cloud

Loop mois par mois entre deux dates.

1 réponse
Avatar
Bonjour,

En pratique, j'ai deux DateTimePicker sur une form

le 1er indique : 01/01/2006
le 2eme : 12/12/2007

j'essaye en vain d'énumérer avec Visual Basic Express Edition
un par un les mois qui séparent 2 dates dans une boucle du genre :

From DateDu1erDateTimePicker to DateDu2emeDateTimePicker
Msgbox (Mois & vbcrlf & Année)
Next

Je ne cache pas que je serai éperdue de reconnaissance envers
quiconque m'expliquera comment faire !

Merci pour votre attention,

Estelle

1 réponse

Avatar
Sebastien
Bonjour,

avez vous essayer de fair un DateDiff entre les date et retourner la valeur
en moi, ensuite prendre la date de depar et fair un dateAdd de i (qui
devietn une valeur numeric)

exemple, avec ceci :
Dim lDateDebut As Date = New Date(2006, 1, 15)

Dim lDateFin As Date = New Date(2007, 6, 23)

Dim lNbMoi As Integer = Math.Abs(DateDiff(DateInterval.Month, lDateDebut,
lDateFin))

For i As Integer = 0 To lNbMoi - 1

Dim lDatei As Date

lDatei = lDateDebut.AddMonths(i)

Console.WriteLine(lDatei.ToLongDateString)

Next


j'obtient ceci :

dimanche 15 janvier 2006

mercredi 15 février 2006

mercredi 15 mars 2006

samedi 15 avril 2006

...

---------------------------------------
Sébastien

Facilité vous le développement des bases de données sous VB2003 / 2005,
Tres utile pour ce qui debute et ne comprenent rien au base de donnée !
Ou pour les utilisateurs avancés qui souhaite poussé leur développement plus
loin !
www.database2code.com






a écrit dans le message de news:

Bonjour,

En pratique, j'ai deux DateTimePicker sur une form

le 1er indique : 01/01/2006
le 2eme : 12/12/2007

j'essaye en vain d'énumérer avec Visual Basic Express Edition
un par un les mois qui séparent 2 dates dans une boucle du genre :

From DateDu1erDateTimePicker to DateDu2emeDateTimePicker
Msgbox (Mois & vbcrlf & Année)
Next

Je ne cache pas que je serai éperdue de reconnaissance envers
quiconque m'expliquera comment faire !

Merci pour votre attention,

Estelle