From 36d1aac8f08bc20e499563805a280a795f9cdfb2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 26 Apr 2020 01:30:03 +0200 Subject: Add some comments. --- module/datetime/util.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'module/datetime') diff --git a/module/datetime/util.scm b/module/datetime/util.scm index a8ccda07..8c57636e 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -116,6 +116,9 @@ (date+ ystart (date day: (abs day-index))) (date- ystart (date day: day-index))))) +;; TODO v. 1 sometimes is calculated wrong. +;; (week-number #2020-01-01 mon) ; => 1 +;; (week-number #2019-12-31 mon) ; => 53 ; should be 1 (define*-public (week-number date optional: (wkst sun)) (let* ((week day (floor/ (days-in-interval (week-1-start date wkst) date) 7))) @@ -300,6 +303,7 @@ (* 12 (year diff))) (month-stream start-date))))))) +;; also known as Julian day. (define-public (year-day date) (days-in-interval (start-of-year date) date)) -- cgit v1.2.3