[reports] use gnc_date_interval_format

gnucash/report/reports/example/daily-reports.scm

@@ -256,10 +256,7 @@
                    chart (list
                           report-title
                           (string-append
-                           (format #f
+                           (gnc-date-interval-format from-date to-date)
-                                   (G_ "~a to ~a")
-                                   (qof-print-date from-date)
-                                   (qof-print-date to-date))
                            (if show-total?
                                (let ((total (apply + daily-totals)))
                                  (format

gnucash/report/reports/standard/account-piecharts.scm

@@ -510,10 +510,7 @@ balance at a given time"))
                 chart (list report-title
                             (string-append
                              (if do-intervals?
-                                 (format #f
+                                 (gnc-date-interval-format from-date to-date)
-                                         (G_ "~a to ~a")
-                                         (qof-print-date from-date)
-                                         (qof-print-date to-date))
                                  (format #f
                                          (G_ "Balance at ~a")
                                          (qof-print-date to-date)))

gnucash/report/reports/standard/balance-forecast.scm

@@ -270,9 +270,7 @@ date point, a projected minimum balance including scheduled transactions."))
         (gnc:html-chart-set-type! chart 'line)
         ;; Set the chart titles
         (gnc:html-chart-set-title!
-         chart (list report-title
+         chart (list report-title (gnc-date-interval-format from-date to-date)))
-                     (format #f (G_ "~a to ~a")
-                       (qof-print-date from-date) (qof-print-date to-date))))
         ;; Set the chart size
         (gnc:html-chart-set-width! chart plot-width)
         (gnc:html-chart-set-height! chart plot-height)

gnucash/report/reports/standard/balsheet-pnl.scm

@@ -859,8 +859,7 @@ also show overall period profit & loss."))
              (display report-title)
              (display " ")
              (if (or (not (eq? incr 'disabled)) (eq? report-type 'pnl))
-                 (format #t (G_ "~a to ~a")
+                 (gnc-date-interval-format startdate enddate)
-                         (qof-print-date startdate) (qof-print-date enddate))
                  (display (qof-print-date enddate))))))
 
     (if (eq? (get-option gnc:pagename-general optname-options-summary) 'always)

gnucash/report/reports/standard/budget.scm

@@ -465,9 +465,9 @@
               ((eq? (car column-list) 'total)
                (G_ "Total"))
               ((list? (car column-list))
-               (format #f (G_ "~a to ~a")
+               (gnc-date-interval-format
-                       (period-to-date-string (car (car column-list)))
+                (gnc-budget-get-period-start-date budget (car (car column-list)))
-                       (period-to-date-string (last (car column-list)))))
+                (gnc-budget-get-period-start-date budget (last (car column-list)))))
               (else
                (period-to-date-string (car column-list)))))
 

gnucash/report/reports/standard/cash-flow.scm

@@ -180,8 +180,7 @@
      doc (string-append
           (get-option gnc:pagename-general gnc:optname-reportname)
           " - "
-          (format #f (G_ "~a to ~a")
+          (gnc-date-interval-format from-date-t64 to-date-t64)))
-                  (qof-print-date from-date-t64) (qof-print-date to-date-t64))))
 
     (if (not (null? accounts))
 

gnucash/report/reports/standard/cashflow-barchart.scm

@@ -254,11 +254,7 @@
           (gnc:report-percent-done 90)
 
           (gnc:html-chart-set-title!
-           chart (list report-title
+           chart (list report-title (gnc-date-interval-format from-date-t64 to-date-t64)))
-                       (format #f
-                               (G_ "~a to ~a")
-                               (qof-print-date from-date-t64)
-                               (qof-print-date to-date-t64))))
           (gnc:html-chart-set-width! chart width)
           (gnc:html-chart-set-height! chart height)
           (gnc:html-chart-set-y-axis-label!

gnucash/report/reports/standard/category-barchart.scm

@@ -518,12 +518,8 @@ Please deselect the accounts with negative balances."))
 
             (gnc:html-chart-set-title!
              chart (list report-title
-                         (format #f
+                         (format #f (if do-intervals? "~a" (G_ "Balances ~a"))
-                                 (if do-intervals?
+                                 (gnc-date-interval-format from-date-t64 to-date-t64))))
-                                     (G_ "~a to ~a")
-                                     (G_ "Balances ~a to ~a"))
-                                 (qof-print-date from-date-t64)
-                                 (qof-print-date to-date-t64))))
 
             (gnc:html-chart-set-width! chart width)
             (gnc:html-chart-set-height! chart height)

gnucash/report/reports/standard/investment-lots.scm

@@ -1960,10 +1960,9 @@
     (gnc:html-document-set-title!
       document
       (format #f
-        (G_ "~a, ~a to ~a")
+        (G_ "~a, ~a")
         (get-option gnc:pagename-general gnc:optname-reportname)
-        (qof-print-date from-date)
+        (gnc-date-interval-format from-date to-date)))
-        (qof-print-date to-date)))
 
     (cond
       ((not (null? accounts))
@@ -1986,11 +1985,7 @@
                           (list colname-unrealized-gain))
                         '()))))
             (gnc:html-chart-set-title! chart
-              (list (N_ "Account Lot Gains")
+              (list (N_ "Account Lot Gains") (gnc-date-interval-format from-date to-date)))
-                (format #f
-                  (G_ "~a to ~a")
-                  (qof-print-date from-date)
-                  (qof-print-date to-date))))
             (gnc:html-chart-set-type! chart 'bar)
             (gnc:html-chart-set-width! chart chart-width)
             (gnc:html-chart-set-height! chart chart-height)

gnucash/report/reports/standard/net-charts.scm

@@ -312,10 +312,7 @@
        (gnc:html-chart-set-width! chart width)
        (gnc:html-chart-set-height! chart height)
        (gnc:html-chart-set-title!
-        chart (list report-title
+        chart (list report-title (gnc-date-interval-format from-date-t64 to-date-t64)))
-                    (format #f (G_ "~a to ~a")
-                            (qof-print-date from-date-t64)
-                            (qof-print-date to-date-t64))))
        (gnc:html-chart-set-y-axis-label!
         chart (gnc-commodity-get-mnemonic report-currency))
        (gnc:html-chart-set-grid?! chart y-grid)

gnucash/report/reports/standard/new-owner-report.scm

@@ -1128,8 +1128,8 @@ and do not match the transaction."))))))))
 
           (gnc:html-document-add-object!
            document (gnc:make-html-text
-                     (string-append (G_ "Date Range") ": " (qof-print-date start-date)
+                     (string-append (G_ "Date Range") ": "
-                                    " - " (qof-print-date end-date))))
+                                    (gnc-date-interval-format start-date end-date))))
 
           (make-break! document)
 

gnucash/report/reports/standard/price-scatter.scm

@@ -182,10 +182,7 @@
            (string-append
             (gnc-commodity-get-mnemonic base-commodity)
             " - "
-            (format #f
+            (gnc-date-interval-format from-date to-date))))
-                    (G_ "~a to ~a")
-                    (qof-print-date from-date)
-                    (qof-print-date to-date)))))
     (gnc:html-chart-set-width! chart width)
     (gnc:html-chart-set-height! chart height)
     (gnc:html-chart-set! chart

gnucash/report/reports/standard/txn-columns.scm

@@ -183,7 +183,7 @@ Select a different subset of transactions, or increase the limit in the options.
                     1 3 "total-label-cell"
                     (gnc:make-html-text
                      (G_ "Total For ")
-                     (format #f "~a to ~a" (qof-print-date from-date) (qof-print-date to-date))))
+                     (gnc-date-interval-format from-date to-date)))
                    (map (lambda (acc total)
                           (gnc:make-html-table-cell/markup
                            "total-number-cell"

gnucash/report/trep-engine.scm

@@ -291,6 +291,12 @@ in the Options panel."))
 (define (split->time64 s)
   (xaccTransGetDate (xaccSplitGetParent s)))
 
+
+(define (date-get-week-year-string date)
+  (let ((beginweekt64 (* (gnc:time64-get-week (gnc-mktime date)) 7 86400)))
+    (gnc-date-interval-format (+ beginweekt64 (* 3 86400))
+                              (+ beginweekt64 (* 9 86400)))))
+
 (define date-subtotal-list
   ;; List for date option.
   ;; Defines the different date sorting keys, as an association-list. Each entry:
@@ -316,7 +322,7 @@ in the Options panel."))
          (cons 'split-sortvalue (lambda (s) (time64-week (split->time64 s))))
          (cons 'date-sortvalue time64-week)
          (cons 'text (G_ "Weekly"))
-         (cons 'renderer-fn (compose gnc:date-get-week-year-string
+         (cons 'renderer-fn (compose date-get-week-year-string
                                      gnc-localtime
                                      split->time64)))
 
@@ -2542,11 +2548,7 @@ be excluded from periodic reporting.")
            document
            (gnc:make-html-text
             (gnc:html-markup-h3
-             (format #f
+             (gnc-date-interval-format begindate enddate))))
-                     ;; Translators: Both ~a's are dates
-                     (G_ "From ~a to ~a")
-                     (qof-print-date begindate)
-                     (qof-print-date enddate)))))
 
           (when (eq? infobox-display 'always)
             (gnc:html-document-add-object!