IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

date-utilities.scm: optimize leapyear calc

Browse Source
This commit is contained in:
Christopher Lam 2017-12-21 19:55:38 +08:00
parent 33a7bb73db
commit 7550ccf537
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgnucash/app-utils/date-utilities.scm
View File

@ -159,11 +159,9 @@
;; is leap year?
(define (gnc:leap-year? year)
(if (= (remainder year 4) 0)
(if (= (remainder year 100) 0)
(if (= (remainder year 400) 0) #t #f)
#t)
#f))
(or (and (zero? (remainder year 4))
(not (zero? (remainder year 100))))
(zero? (remainder year 400))))
;; number of days in year
(define (gnc:days-in-year year)