(define (nbJoursAnnees date1 date2)
  (let ((annee1 (annee date1))
	(annee2 (annee date2))
	(le-calendrier (calendrier date1)))
    (do ((l-annee (+ annee1 1) (+ 1 l-annee))
	 (nbJours 0 (+ nbJours 365
		       (Bissextile
			  (fab-date le-calendrier 1 1 l-annee)))))
	((= l-annee annee2)
	 nbJours))))