p
u
b
l
i
c
i
t
é
publicité
  1. #1
    Invité de passage
    Homme Profil pro
    Étudiant
    Inscrit en
    mars 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2012
    Messages : 11
    Points : 0
    Points
    0

    Par défaut Valeur de la date du dernier dimanche du mois

    Bonjour a tous et a toutes,
    Tout est dans la question, je cherche a savior comment récupéré la valeur de la date du dernier dimanche du mois.

    Par exemple pour ce mois-ci, la valeur sera le 26/08/2012.

    Merci d'avance

  2. #2
    Modérateur

    Homme Profil pro
    Spécialiste progiciel
    Inscrit en
    février 2010
    Messages
    1 719
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Haute Loire (Auvergne)

    Informations professionnelles :
    Activité : Spécialiste progiciel
    Secteur : Service public

    Informations forums :
    Inscription : février 2010
    Messages : 1 719
    Points : 2 933
    Points
    2 933

    Par défaut

    Bonjour,

    Je pense qu'il est possible de bricoler une fonction qui retourne cette valeur en testant quel est le dernier jour du mois. puis en enlevant en correspondance le nombre de jour pour tomber sur un dimanche.
    Quelque chose de ce style à tester.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub dernierdimanchedumois()
    dim Ladate as string
    Ladate = "23/03/2013"
     If IsDate(Ladate) Then
            dernierjour = CByte(Day(DateSerial(Year(Ladate), Month(Ladate) + 1, 0)))
    End If
    If DatePart("w", dernierjour & Mid(Ladate, 3), vbMonday, vbUseSystem) <> 7 Then
    Debug.Print dernierjour - DatePart("w", dernierjour & Mid(Ladate, 3), vbMonday, vbUseSystem) & Mid(Ladate, 3)
    Else
    Debug.Print dernierjour & Mid(Ladate, 3)
    End If
     
    End Sub
    Cordialement,
    Christophe

    Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche

  3. #3
    Invité de passage
    Homme Profil pro
    Étudiant
    Inscrit en
    mars 2012
    Messages
    11
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2012
    Messages : 11
    Points : 0
    Points
    0

    Par défaut

    Ça fonctionne impeccable ! Merci beaucoup

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

Discussions similaires

  1. Date au dernier jour du mois dernier
    Par guirobe dans le forum SQL
    Réponses: 3
    Dernier message: 31/10/2008, 13h36
  2. Connaitre la date du Xème Dimanche du mois
    Par gpanpan dans le forum VBScript
    Réponses: 7
    Dernier message: 30/10/2008, 18h22
  3. Transformer un format 'ANNEEMOIS' en date du dernier jours du mois
    Par mat75019 dans le forum Développement
    Réponses: 6
    Dernier message: 27/10/2008, 23h21
  4. rapporte la date du dernier dimanche connu
    Par omarter dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 17/10/2008, 12h59
  5. Recherche du dernier dimanche du mois.
    Par fabreizhad dans le forum JavaScript
    Réponses: 1
    Dernier message: 04/02/2008, 16h24

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