RE: Re: Calculate the 20th of next month

["Rex Capio" <rex_capio@xxxxxxxxxxxxxxxxxxxxx>]

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.