From b5f169643731434d666f6f515bc3e4b4ed5ec662 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 20 Apr 2020 02:14:28 +0200 Subject: Add year-day function. --- 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 da204f22..57b2acf4 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -307,6 +307,10 @@ (* 12 (year diff))) (month-stream start-date))))))) +(define-public (year-day date) + (days-in-interval (start-of-year date) date)) + + ;; @example ;; (time->decimal-hour #10:30:00) ; => 10.5 ;; @end example -- cgit v1.2.3