(let ((y approx)
(sum 0))
(while (>= (math-compare date
- (math-iso-dt-to-absolute (setq y (math-add y 1)) 1 1)) 0)
+ (math-absolute-from-iso-dt (setq y (math-add y 1)) 1 1)) 0)
(setq sum (+ sum 1)))
sum))))
(list
year
(math-add (car (math-idivmod
- (math-sub date (math-iso-dt-to-absolute year 1 1))
+ (math-sub date (math-absolute-from-iso-dt year 1 1))
7))
1)
(cdr (math-idivmod date 7)))))
(progn
(or math-fd-iso-dt
(setq math-fd-iso-dt (math-date-to-iso-dt math-fd-date)
- jpb math-fd-date
- jpbb math-fd-iso-dt
math-fd-isoyear (car math-fd-iso-dt)
math-fd-isoweek (nth 1 math-fd-iso-dt)
math-fd-isoweekday (nth 2 math-fd-iso-dt)))