(define (nbJoursMois la-date) (let ((le-mois (mois la-date))) (if (= le-mois 2) (+ 28 (Bissextile la-date)) (+ 30 (modulo (+ le-mois (quotient le-mois 8)) 2)))))