Vivement dimanche

Question

Je voudrais pouvoir trouver la date de tous les dimanches compris dans un mois donné.

Par exemple sous la forme :

dimanche(1)=
dimanche(2)=
etc.

Merci de votre aide.

Benedict :)

cs_PROGRAMMIX · Answer

'Voici la manière dont je procèderais:
'1°) Définir une variable Date qui serait initialisée avec la date du premier jour du mois ;
'2°) Ensuite, trouver à quel jour de la semaine correspont cette date ;
'3°) Sur base du jour ainsi trouvé, modifier la date en lui ajoutant le nombre de jours qui la sépare du premier dimanche ;
'4°) Et enfin, boucler pour recueillir la date de tous les dimanches du mois.

'Reste à traduire cela en code:
'----------------------------------
Dim PremierDuMois As Date
Dim JourSemaine As Integer
Dim Dimanche As Date

PremierDuMois = CDate("01/05/2003")
'Eventuellement voir l'aide en ligne pour les paramètres de Weekday
JourSemaine = Weekday(PremierDuMois)
Select Case JourSemaine
    Case vbMonday
        Dimanche = PremierDuMois + 6
    Case vbTuesday
        Dimanche = PremierDuMois + 5
    Case vbWednesday
        Dimanche = PremierDuMois + 4
    Case vbThursday
        Dimanche = PremierDuMois + 3
    Case vbFriday
        Dimanche = PremierDuMois + 2
    Case vbSaturday
        Dimanche = PremierDuMois + 1
    Case vbSunday
        Dimanche = PremierDuMois
End Select

Me.Label1.Caption = Dimanche

While Month(Dimanche) = Month(PremierDuMois)
      Dimanche = Dimanche + 7      If Month(Dimanche) Month(PremierDuMois) Then Me.Label1.Caption Me.Label1.Caption & vbCrLf & Dimanche
Wend

Bonne chance...

stevebelgium · Answer

Nice code !
But to big , maybe more compact :

Dim PremierDuMois As Date
    
Dim Mois As Integer
    
PremierDuMois = CDate("01/05/2003")
    Mois = month(PremierDuMois)
    
    Do
        If Weekday(PremierDuMois) = vbSunday Then
            Label1 = Label1 & PremierDuMois & vbCrLf
        End If
        
        PremierDuMois = PremierDuMois + 1
        
    Loop Until month(PremierDuMois) <> Mois

cs_benedict · Answer

Benedict :) 

Merci. Pour du compact, c'est du compact !
 ;)

cs_benedict · Answer

Merci. C'est le code exact que j'ai écrit depuis que j'ai posé la question !

Les grands esprits se rencontrent !

 :big) 

Benedict :)

stevebelgium · Answer

cool  8-) 

 :)

Vivement dimanche

5 réponses

Discussions similaires