(define (nbJoursRestants la-date) (- (+ 365 (Bissextile la-date)) (posJourAnnee la-date)))