mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-12-02 05:29:20 -06:00
fix bug
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6529 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
1dfbcfe675
commit
b10774c391
@ -558,7 +558,7 @@
|
|||||||
(if (= (tm:mon now) 0)
|
(if (= (tm:mon now) 0)
|
||||||
(begin
|
(begin
|
||||||
(set-tm:mon now 11)
|
(set-tm:mon now 11)
|
||||||
(set-tm:year (- (tm:year now) 1)))
|
(set-tm:year now (- (tm:year now) 1)))
|
||||||
(set-tm:mon now (- (tm:mon now) 1)))
|
(set-tm:mon now (- (tm:mon now) 1)))
|
||||||
(set-tm:mday now (gnc:days-in-month (+ (tm:mon now) 1)
|
(set-tm:mday now (gnc:days-in-month (+ (tm:mon now) 1)
|
||||||
(+ (tm:year now) 1900)))
|
(+ (tm:year now) 1900)))
|
||||||
|
Loading…
Reference in New Issue
Block a user