r19252 - gnucash/trunk/src/app-utils - Add getter function for mapping a {year, month, day} symbol to the conversion function of a date to a fractional number.
Christian Stimming
cstim at code.gnucash.org
Sat Jun 12 11:51:40 EDT 2010
Author: cstim
Date: 2010-06-12 11:51:40 -0400 (Sat, 12 Jun 2010)
New Revision: 19252
Trac: http://svn.gnucash.org/trac/changeset/19252
Modified:
gnucash/trunk/src/app-utils/app-utils.scm
gnucash/trunk/src/app-utils/date-utilities.scm
Log:
Add getter function for mapping a {year,month,day} symbol to the conversion function of a date to a fractional number.
Modified: gnucash/trunk/src/app-utils/app-utils.scm
===================================================================
--- gnucash/trunk/src/app-utils/app-utils.scm 2010-06-12 13:00:30 UTC (rev 19251)
+++ gnucash/trunk/src/app-utils/app-utils.scm 2010-06-12 15:51:40 UTC (rev 19252)
@@ -178,6 +178,7 @@
(export gnc:date-to-week-fraction)
(export gnc:date-to-week)
(export gnc:date-to-day-fraction)
+(export gnc:date-get-fraction-func)
(export moddatek)
(export decdate)
(export incdate)
Modified: gnucash/trunk/src/app-utils/date-utilities.scm
===================================================================
--- gnucash/trunk/src/app-utils/date-utilities.scm 2010-06-12 13:00:30 UTC (rev 19251)
+++ gnucash/trunk/src/app-utils/date-utilities.scm 2010-06-12 15:51:40 UTC (rev 19252)
@@ -185,6 +185,17 @@
(define (gnc:date-to-day-fraction caltime)
(- (/ (/ caltime 3600.0) 24) 59))
+;; Returns the function that converts a date into a fraction of
+;; {year,month,week,day} according to the given symbol, or #f if the
+;; symbol was unknown
+(define (gnc:date-get-fraction-func interval)
+ (case interval
+ ('YearDelta gnc:date-to-year-fraction)
+ ('MonthDelta gnc:date-to-month-fraction)
+ ('WeekDelta gnc:date-to-week-fraction)
+ ('DayDelta gnc:date-to-day-fraction)
+ (else #f)))
+
;; Modify a date
(define (moddate op adate delta)
(let ((newtm (gnc:timepair->date adate)))
More information about the gnucash-changes
mailing list