821 |
(modulo (- day-of-week-starting-week fdweek-day) |
(modulo (- day-of-week-starting-week fdweek-day) |
822 |
7))) |
7))) |
823 |
|
|
824 |
|
;; The "-1" here is a fix for the reference implementation, to make a new |
825 |
|
;; week start on the given day-of-week-starting-week. date-year-day returns |
826 |
|
;; a day starting from 1 for 1st Jan. |
827 |
|
;; |
828 |
(define (date-week-number date day-of-week-starting-week) |
(define (date-week-number date day-of-week-starting-week) |
829 |
(quotient (- (date-year-day date) |
(quotient (- (date-year-day date) |
830 |
|
1 |
831 |
(priv:days-before-first-week date day-of-week-starting-week)) |
(priv:days-before-first-week date day-of-week-starting-week)) |
832 |
7)) |
7)) |
833 |
|
|