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

date-utilities: bugfix weekly render

Browse Source 
This was introduced by 48bdab3.
This commit is contained in:
Christopher Lam
2018-02-28 22:10:38 +08:00
parent 7054cc83bc
commit 8fef1adcc4
1 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
libgnucash/app-utils/date-utilities.scm
View File

@@ -91,19 +91,7 @@
604800)) 604800))
(begin-string (qof-print-date (+ beginweekt64 345600))) (begin-string (qof-print-date (+ beginweekt64 345600)))
(end-string (qof-print-date (+ beginweekt64 864000)))) (end-string (qof-print-date (+ beginweekt64 864000))))
(format #f (_ "~s to ~s") begin-string end-string))) (format #f (_ "~a to ~a") begin-string end-string)))
; (let ((begin-string (qof-print-date
; (+ (* (gnc:date-get-week
; (gnc:time64-start-day-time
; (gnc-mktime datevec)))
; 604800) 345600)))
; (end-string (qof-print-date
; (+ (* (gnc:date-get-week
; (gnc:time64-start-day-time
; (gnc-mktime datevec)))
; 604800) 864000))))
; (format #f (_ "~s to ~s") begin-string end-string)))
;; is leap year? ;; is leap year?
(define (gnc:leap-year? year) (define (gnc:leap-year? year)