FONCTION getLastWeekEnd(_Année, _Mois)
Dt est une Date
nIndice est une entier
// Affectation de la date avec le dernier jour du mois
Dt..Année = _Année ; Dt..Mois = _Mois ; Dt..Jour = 31
BOUCLE
// Marche arrière dans les jours tant qu'on ne trouve pas un dimanche
SI DateVersJour(Dt) = 7 ALORS RENVOYER DateVersChaîne(Dt)
Dt..Jour -= 1
FIN