Discussion :

[gpanpan]

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.

[pc75]

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

[gpanpan]

Oui ca fonctionne pour trouver si on est bien le dimanche j'ai corrigé dans ton code le

Code :

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

1
2
 
if weekday(LeJour) = 7 then ' Si on est Samedi

Par

Code :

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

1
2
 
if weekday(LeJour) = 1 then ' Si on est Dimanche

je n'avais pas pensé à ça merci pour le code.

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

[pc75]

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

[gpanpan]

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.

[pc75]

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.

A priori, il faudra effectivement gérer les exceptions.