PROCEDURE DernierWeekEnd(_Mois="200610")

maDate est une Date
maDate = _Mois+"01"

//Premier jour du mois suivant.
maDate..Mois+=1
maDate..Jour=1

//On recule d'un jour jusqu'à trouver un dimanche (7)
BOUCLE
        maDate-=1
        SI DateVersJour(DateVersChaîne(maDate,"AAAAMMJJ")) = 7 ALORS SORTIR
FIN

//Retour du dernier dimache
RENVOYER maDate