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 #647242: Fix broken averaging for quarter or half-year step size

Browse Source 
Patch by "joshua":

I think the problem is in the file date-utilities.scm in the define statement
starting on line 191. There were no options for TwoWeekDelta, QuarterDelta, or HalfYearDelta.
BP

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@20547 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Christian Stimming 2011-04-09 18:44:50 +00:00
parent 9a92f5b4a6
commit a8ea95377b
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/app-utils/date-utilities.scm
View File

@ -163,6 +163,16 @@
(/ (- dayadj2 dayadj1)
366.0))))
;; convert a date in seconds since 1970 into # of 1/2 years since 1970 as
;; a fraction (doubling date-to-year-fraction)
(define (gnc:date-to-halfyear-fraction caltime)
(* (gnc:date-to-year-fraction caltime) 2))
;; convert a date in seconds since 1970 into # of quarters since 1970
;; (assuming quarter = 3 months and using 1/3 of date-to-month-fraction)
(define (gnc:date-to-quarter-fraction caltime)
(/ (gnc:date-to-month-fraction caltime) 3))
;; convert a date in seconds since 1970 into # of months since 1970
(define (gnc:date-to-month-fraction caltime)
(let ((lt (localtime caltime)))
@ -172,6 +182,11 @@
(gnc:date-get-month lt)
(gnc:date-get-year lt))))))
;; convert a date in seconds since 1970 into # of two-week periods since
;; Jan 4, 1970 ignoring leap-seconds (just halfing date-to-week-fraction)
(define (gnc:date-to-twoweek-fraction caltime)
(/ (gnc:date-to-week-fraction caltime) 2))
;; convert a date in seconds since 1970 into # of weeks since Jan 4, 1970
;; ignoring leap-seconds
(define (gnc:date-to-week-fraction caltime)
@ -191,7 +206,10 @@
(define (gnc:date-get-fraction-func interval)
(case interval
((YearDelta) gnc:date-to-year-fraction)
((HalfYearDelta) gnc:date-to-halfyear-fraction)
((QuarterDelta) gnc:date-to-quarter-fraction)
((MonthDelta) gnc:date-to-month-fraction)
((TwoWeekDelta) gnc:date-to-twoweek-fraction)
((WeekDelta) gnc:date-to-week-fraction)
((DayDelta) gnc:date-to-day-fraction)
(else #f)))