(define (posJourAnnee la-date) (let ((le-calendrier (calendrier la-date)) (l-annee (annee la-date))) (do ((le-mois 1 (+ le-mois 1)) (nbJours 0 (+ nbJours (nbJoursMois (fab-date le-calendrier (jour la-date) le-mois l-annee))))) ((= le-mois (mois la-date)) (+ (jour la-date) nbJours)))))