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] deprecate unused date selectors

Browse Source
This commit is contained in:
Christopher Lam 2021-03-29 20:14:18 +08:00
parent 26286e2f6e
commit d316b01da7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -585,6 +585,7 @@ Defaulting to today."))
(gnc-mktime now)))
(define (gnc:get-start-next-year)
(issue-deprecation-warning "gnc:get-start-next-year is deprecated.")
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now 0)
(set-tm:min now 0)
@ -596,6 +597,7 @@ Defaulting to today."))
(gnc-mktime now)))
(define (gnc:get-end-next-year)
(issue-deprecation-warning "gnc:get-end-next-year is deprecated.")
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now 59)
(set-tm:min now 59)
@ -661,6 +663,7 @@ Defaulting to today."))
(gnc-mktime now)))
(define (gnc:get-start-next-month)
(issue-deprecation-warning "gnc:get-start-next-month is deprecated.")
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now 0)
(set-tm:min now 0)
@ -675,6 +678,7 @@ Defaulting to today."))
(gnc-mktime now)))
(define (gnc:get-end-next-month)
(issue-deprecation-warning "gnc:get-end-next-month is deprecated.")
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now 59)
(set-tm:min now 59)
@ -743,6 +747,7 @@ Defaulting to today."))
(gnc-mktime now)))
(define (gnc:get-start-next-quarter)
(issue-deprecation-warning "gnc:get-start-next-quarter is deprecated.")
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now 0)
(set-tm:min now 0)
@ -757,6 +762,7 @@ Defaulting to today."))
(gnc-mktime now)))
(define (gnc:get-end-next-quarter)
(issue-deprecation-warning "gnc:get-end-next-quarter is deprecated.")
(let ((now (gnc-localtime (current-time))))
(set-tm:sec now 59)
(set-tm:min now 59)
@ -776,6 +782,7 @@ Defaulting to today."))
(current-time))
(define (gnc:get-one-month-ago)
(issue-deprecation-warning "gnc:get-one-month-ago is deprecated.")
(let ((now (gnc-localtime (current-time))))
(if (= (tm:mon now) 0)
(begin
@ -831,6 +838,7 @@ Defaulting to today."))
(gnc-mktime now))))
(define (gnc:get-one-month-ahead)
(issue-deprecation-warning "gnc:get-one-month-ahead is deprecated.")
(let ((now (gnc-localtime (current-time))))
(if (= (tm:mon now) 11)
(begin