git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6529 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2002-01-08 00:29:16 +00:00
parent 1dfbcfe675
commit b10774c391

View File

@ -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)))