IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-12-01 13:09:41 -06:00
Code Issues Packages Projects Releases Wiki Activity

ensure averaging-multipler returns exact numbers rather than floats

Browse Source
This commit is contained in:
Christopher Lam 2020-07-19 17:46:01 +08:00
parent 11b75128cd
commit d546a617ad
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -110,8 +110,8 @@
(define (gnc:date-to-year-fraction caltime)
(let ((lt (gnc-localtime caltime)))
(+ (- (gnc:date-get-year lt) 1970)
(/ (- (gnc:date-get-year-day lt) 1.0)
(* 1.0 (gnc:days-in-year (gnc:date-get-year lt)))))))
(/ (- (gnc:date-get-year-day lt) 1)
(gnc:days-in-year (gnc:date-get-year lt))))))
;; return the number of years (in floating point format) between two dates.
(define (gnc:date-year-delta caltime1 caltime2)
@ -146,9 +146,9 @@
;; convert a date in seconds since 1970 into # of months since 1970
(define (gnc:date-to-month-fraction caltime)
(let ((lt (gnc-localtime caltime)))
(+ (* 12 (- (gnc:date-get-year lt) 1970.0))
(+ (* 12 (- (gnc:date-get-year lt) 1970))
(gnc:date-get-month lt) -1
(/ (- (gnc:date-get-month-day lt) 1.0)
(/ (- (gnc:date-get-month-day lt) 1)
(gnc:days-in-month
(gnc:date-get-month lt)
(gnc:date-get-year lt))))))