(define (diff-dates date1 date2) (let ((le-calendrier (calendrier date1))) (cond ((equal? date1 date2) 0) ((= (annee date1) (annee date2)) (- (posJourAnnee date2) (posJourAnnee date1))) ((= (annee date2) (+ 1 (annee date1))) (+ (nbJoursRestants date1) (posJourAnnee date2))) (else (+ (nbJoursAnnees date1 date2) (nbJoursRestants date1) (posJourAnnee date2))))))