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