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
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
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
Ça fonctionne impeccable ! Merci beaucoup
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager