RE: Re: Calculate the 20th of next month

Adding one month to month-end works this way:

2009-10-31 + 1 month = 2009-11-30
2010-01-31 + 1 month = 2010-02-28 (non-leap year)
2012-01-31 + 1 month = 2012-02-29 (leap year)
2009-02-28 + 1 month = 2009-03-28
2009-12-31 + 1 month = 2010-01-31


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Jeff Crosby
Sent: Tuesday, October 06, 2009 9:46 AM
To: RPG programming on the IBM i / System i
Subject: Re: Re: Calculate the 20th of next month

Or this scenario:

mydatefield = %date(20091031:*ISO)
%month(mydatefield) +=1;

Now what's in mydatefield? 2009-12-01?



On Tue, Oct 6, 2009 at 9:00 AM, Anwendungsentwicklung <
Anwendungsentwicklung@xxxxxxxxxxxxxxxxxxxx> wrote:

And how does it work in december?
%month(mydatefield) = 12 --> += 1 ??? --> 13 ???
Or will it work correctly?

Susanne Finger




-----Ursprüngliche Nachricht-----
Von: rob@xxxxxxxxx [mailto:rob@xxxxxxxxx]
Gesendet: Dienstag, 6. Oktober 2009 14:43
An: RPG programming on the IBM i / System i
Betreff: Re: Calculate the 20th of next month

Anyone thought of submitting a DCR to be able to assign a date portion
from the left side of the equation? Like,
%month(mydatefield) +=1;
%day(mydatefield) = 20;

Does anything else think that
SomeDays = subdt(mydatefield:*days);
is more cryptic than
SomeDays = %day(mydatefield);

Or are they afraid that you'll get confused between %day and the
existing
%days as in
dueDate = SellDate + %days(TermDays);



Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing

list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.