IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Connaitre la date du Xème Dimanche du mois


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 57
    Par défaut Connaitre la date du Xème Dimanche du mois
    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.

  2. #2
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    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

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 57
    Par défaut
    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

  4. #4
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    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

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juin 2007
    Messages
    57
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2007
    Messages : 57
    Par défaut
    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.

  6. #6
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    Citation Envoyé par gpanpan Voir le message
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Valeur de la date du dernier dimanche du mois
    Par LeSchtroumpf dans le forum Général VBA
    Réponses: 2
    Dernier message: 24/08/2012, 09h37
  2. SQL:Obtenir la date du 3ème dimanche de chaque mois
    Par twixi dans le forum Langage SQL
    Réponses: 6
    Dernier message: 10/04/2009, 10h38
  3. Connaitre la date de fin d'un mois
    Par illight dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/05/2007, 10h52
  4. Calcul de dates : début de semaine, de mois, de trimestre
    Par pyxosledisciple dans le forum Access
    Réponses: 13
    Dernier message: 22/02/2006, 08h07
  5. Réponses: 4
    Dernier message: 19/12/2005, 10h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo