<?php
// Version PHP5
function getLastWeekEnd ($sYear, $sMonth) {
    try {
        $iDate = @mktime (0,0,0, (int)$sMonth + 1, 1, (int)$sYear);
        if (false === $iDate || -1 === $iDate) {
            throw new Exception ('L\'année ou/et le mois donnés ne sont pas valides');
        }
        return strftime ('%d-%m-%Y', strtotime ('last Saturday', $iDate));
    } catch (Exception $e) {
        echo $e -> getMessage ();
    }
}
echo getLastWeekEnd ('2006', '10');
// Version PHP4
function getLastWeekEnd2 ($sYear, $sMonth) {
    $iDate = @mktime (0,0,0, (int)$sMonth + 1, 1, (int)$sYear);
    if (-1 === $iDate) {
        trigger_error ('L\'année ou/et le mois donnés ne sont pas valides', E_USER_ERROR);
    }
    return strftime ('%d-%m-%Y', strtotime ('last Saturday', $iDate));
}
echo getLastWeekEnd2 ('2006', '10');
?>

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

Function GetLastFullWeekEnd(Optional ByVal dDate As Variant) As Date
    If IsMissing(dDate) Then dDate = Date
    If VarType(dDate) <> vbDate Then Err.Raise vbDate, "GetLastWeekEnd", "Paramètre invalide"
    GetLastFullWeekEnd = DateSerial(Year(dDate), Month(dDate) + 1, 0) - 1
    
    While Weekday(GetLastFullWeekEnd, vbMonday) <> 6
        GetLastFullWeekEnd = GetLastFullWeekEnd - 1
    Wend
End Function

' EXEMPLE  D'UTILISATION
Private Sub Form_Load()
    MsgBox "AVRIL 2005 -> samedi  " & GetLastFullWeekEnd(#4/1/2005#)
    MsgBox "FéVRIER 2006 -> samedi  " & GetLastFullWeekEnd(#2/1/2006#)
    MsgBox "CE MOIS-CI -> samedi  " & GetLastFullWeekEnd
    Unload Me
End Sub