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

Bug 797106: Do a better job of converting decimal prices to rationals.

Browse Source 
Use the Scheme rationalize method to convert the decimal numbers
from Finance::Quote to ratinal numbers.  This avoids rediculous
precision like 8515625000000001/3906250000000000 for 2.18.
This commit is contained in:
Mike Alexander 2019-02-16 19:27:35 -05:00
parent f22e30ba9e
commit 95aed30320
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
libgnucash/scm/price-quotes.scm
View File

@ -404,12 +404,13 @@
(else #f))) (else #f)))
(if price (if price
(set! price ;; The second argument to inexact->exact is chosen to give reasonable values
(double-to-gnc-numeric price ;; for prices between .12345e-9 and 12345678.87654
GNC-DENOM-AUTO
(logior GNC-DENOM-REDUCE
GNC-RND-NEVER))))
;; inexact->exact is probably not necessary but it can't hurt and is cheap.
(set! price
(gnc-scm-to-numeric
(rationalize (inexact->exact price) 1/1000000000000000))))
(if gnc-time (if gnc-time
(set! gnc-time (timestr->time64 gnc-time time-zone)) (set! gnc-time (timestr->time64 gnc-time time-zone))
(set! gnc-time (gnc:get-today))) (set! gnc-time (gnc:get-today)))