+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  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 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Haute Loire (Auvergne)

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

    Informations forums :
    Inscription : février 2010
    Messages : 1 660
    Points : 2 750
    Points
    2 750

    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 :
    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.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •