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