Bonjour,
je cherche comment déterminer déterminer la date du Xème Dimanche du mois.
Exemple: le 3ème Dimanche du mois d'octobre 2008 est le 19/10/2008
Si vous avez une solution simple en vbs ?
Merci d'avance.
Bonjour,
je cherche comment déterminer déterminer la date du Xème Dimanche du mois.
Exemple: le 3ème Dimanche du mois d'octobre 2008 est le 19/10/2008
Si vous avez une solution simple en vbs ?
Merci d'avance.
Bonjour,
Juste une idée (pas testé). Tu fais une boucle et teste la valeur du jour
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 LeJour = "01/10/2008" do while le jour <= "31/10/2008" if weekday(LeJour) = 7 then msgbox "c'est un dimanche" end if LeJour = dateadd("d", 1, LeJour) loop
Oui ca fonctionne pour trouver si on est bien le dimanche j'ai corrigé dans ton code le
Par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 if weekday(LeJour) = 7 then ' Si on est Samedi
je n'avais pas pensé à ça merci pour le code.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 if weekday(LeJour) = 1 then ' Si on est Dimanche
Mon second problème est de déterminer pour chaque mois quel est la date du 3ème Dimanche du mois et que le 3ème.
Si tu as une idée, car là je suis sur un casse tête, je vais voir avec des plages de date genre tester entre si je suis entre le 15 et le 21 du mois et que le weekday est dimanche alors je serrais le 3ème dimanche du mois !
Si tu as plus simple ?
Merci
Re,
Tu utilises un compteur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 LeJour = "01/10/2008" Cpt = 1 do while le jour <= "31/10/2008" if weekday(LeJour) = 1 then Cpt = Cpt + 1 end if if Cpt = 3 then msgbox "c'est le 3ème dimanche" end if LeJour = dateadd("d", 1, LeJour) loop
Re
ça fait trop longtemps que je suis devant l'écran je crois !
C'est tout bête mais là je crois que je suis plus en état de réfléchir lol.
en tout cas merci pour l'aide, c'est top
En fait le problème du compteur va poser un problème pour le mois de Février sauf si on le gère spécifquement.
Partager