FIX quarter date calculations

This commit is contained in:
Nathan Dwarshuis 2022-04-14 19:13:44 -04:00
parent c2cae79120
commit ab92f6fbdd
1 changed files with 2 additions and 2 deletions

View File

@ -185,11 +185,11 @@
(defun org-x-dag-quarter-to-date (quarter) (defun org-x-dag-quarter-to-date (quarter)
(-let (((y q) quarter)) (-let (((y q) quarter))
(list y (1+ (* q 3)) 1))) (list y (1+ (* (1- q) 3)) 1)))
(defun org-x-dag-date-to-quarter (date) (defun org-x-dag-date-to-quarter (date)
(-let (((y m _) date)) (-let (((y m _) date))
(list y (1+ (/ m 3))))) (list y (1+ (/ (1- m) 3)))))
(defun org-x-dag-date-to-quarter-start (date) (defun org-x-dag-date-to-quarter-start (date)
(->> (org-x-dag-date-to-quarter date) (->> (org-x-dag-date-to-quarter date)