(define (calcul-jour la-date date-ref) (let ((NomsJours (vector "Lundi" "Mardi" "Mercredi" "Jeudi" "Vendredi" "Samedi" "Dimanche")) (intervalle (if (equal? la-date date-ref) 0 (if (avant? la-date date-ref) (- (diff-dates la-date date-ref)) (diff-dates date-ref la-date))))) (vector-ref NomsJours (modulo intervalle 7))))