Discussion :

[Slumpy]

Salut,

je galere depuis pres d une heure sur le point suivant.

J ai deux DateTime. Qui correspondent a mes dates de debut et de fin de boucle. Je souhaiterais faire une boucle qui effectue chaque jour compris entre c dates. Bah je supose qu on n a pas besoin de faire intervenir d Integer tout ca tout ca, mais je vois pas comment faire ...

Merci

[SaumonAgile]

Tu initialises une datetime DC avec ta date de début DD.
Dans un while, tu testes si ta date DC est inférieure à ta date de fin DF (dans la condition du while).
Dans le corps du while, tu fais un

Code :

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

DC = DC.AddDays(1)

[Aspic]

Tiens voila, je t'ai fait ca :

Code :

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

1
2
3
4
5
6
7
8
9
 Dim debut As DateTime = Date.Now
        Dim fin As DateTime = CDate("15/08/2007")
 
        While Not debut.ToShortDateString = fin.ToShortDateString 'tans que lmes deux dates ne sont pas egales
            debut = debut.AddDays(1) 'incremente de 1
            MsgBox(debut.ToShortDateString)
        End While
 
        MsgBox("fini")

L'idée consiste juste à incrementer le jour de 1 et le reste se fait tout seule !

PS: SaumonAgile ma coiffé sur le poteau lorsque j'ai écrit ce code il t'avais deja donné la réponse

Cdl

[SaumonAgile]

Par contre, tu peux remplacer :

Code :

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

debut.ToShortDateString = fin.ToShortDateString

Il est inutile/dangereux de convertir en chaine alors que tu veux comparer des dates.
Tu peux utiliser à la place :

Code :

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

debut.Date = fin.Date

La propriété Date renvoie le composant date d'un datetime, cad sans l'heure.

EDIT : Tu peux aussi utiliser DateTime.Today à la place de DateTime.Now, vu que tu ne veux que la date du jour, tu n'as pas besoin de l'instant exact.

[Aspic]

Sans doute , mais je ne m'y connais pas du tout en date car je n'utilise pas ces classes

[Slumpy]

Resalut,

ARG, revoila monsieur while. Je c pas pourquoi, mais je pense jamais a ce type de boucle. Je fonce tjs pour un FOR si je connais le nombre d iteration a faire.

Effectivement avec un while c bcp plus facile. J ai fait ca :

Code :

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

1
2
3
4
5
dbongoingdate = dbStartdate
            While dbongoingdate < dbEnddate
                dbongoingdate = dbongoingdate.AddDays(1)
                Console.WriteLine(dbongoingdate)
            End While

Merci merci ^^

PS : Vous savez si ct faisable par FOR sans trop compliquer les choses ? Car j ai po trouvé

[Pol63]

c'est faisable avec un for aussi

for d as datetime = date1 to date2 step ...

dans step je sais plus trop la forme qu'il faut mettre
j'ai deja fait des boucles sur des heures avec step "01:00:00" mais pour les jours je sais pas trop

[Slumpy]

yo sperot51,

c'est faisable avec un for aussi

for d as datetime = date1 to date2 step ...

dans step je sais plus trop la forme qu'il faut mettre
j'ai deja fait des boucles sur des heures avec step "01:00:00" mais pour les jours je sais pas trop

Bizarre, c ce genre de truc que j essayais de faire. Pourtant j avais un message d erreur sur le d disant : 'For' loop variable cannot be of type 'Date'

Par exemple sur ca :

Code :

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

1
2
3
4
Dim d As DateTime
            For d = dbStartdate To dbEnddate Step "01:00:00"
                Console.WriteLine(d)
            Next

Slumpy.