np/worktimer
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Some fixes

Browse Source
This commit is contained in:
Nikolay Puzanov 2014-05-16 13:40:29 +04:00
parent 095ace7632
commit 6b6430b72d
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
worktimer.scm
View File

@ -227,19 +227,17 @@
;;; Check date for occurence between d-past and d-future
(define (date-in-range? d d-past d-future)
(let ((dt (date->time-utc d))
(dpt (date->time-utc d-past))
(dft (date->time-utc d-future)))
(and (time>=? dt dpt)
(time<=? dt dft))))
(let ((dt (date->time-utc d)))
(and (time>=? dt (date->time-utc d-past))
(time<=? dt (date->time-utc d-future)))))
;;; Truncate hours, minutes and seconds
(define (date-round-day date)
(let ((day (date-day date))
(month (date-month date))
(year (date-year date))
(zf (date-zone-offset date)))
(make-date 0 0 0 0 day month year zf)))
(make-date 0 0 0 0
(date-day date)
(date-month date)
(date-year date)
(date-zone-offset date)))
;;; Returns remainder plus fractional part of
;;; truncating x.