diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
| commit | f852c30bcef530d18a474ab6ab8350a3ef93d563 (patch) | |
| tree | 00fc29a6ff1a8c842d0a526f04d4124977dd6e46 /module/srfi/srfi-19/util.scm | |
| parent | Update recurrence generate to new date obj. (diff) | |
| download | calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.gz calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.xz | |
Once again compiles.
Diffstat (limited to 'module/srfi/srfi-19/util.scm')
| -rw-r--r-- | module/srfi/srfi-19/util.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm index f5bd1964..96f19dc2 100644 --- a/module/srfi/srfi-19/util.scm +++ b/module/srfi/srfi-19/util.scm @@ -166,3 +166,17 @@ attribute set to 0. Can also be seen as \"Start of day\"" ) ;; ( (nsecs b) (zone b)) ) + +;; Rounds a date towards the closest midnight +;; TODO more general rounding +(define-public (date-round date) + (set-> + (if (< 12 (date-hour date)) + ;; round up + (set (date-day date) = (+ 1)) + ;; round down + date) + (date-day = (+ 1)) + (date-hour 0) + (date-minute 0) + (date-second 0))) |