Re: Date Operation

[michaelr_41@xxxxxxxxxxxxxx]

Whoops...my bad...i was thinking of %Diff.

It would be:

/free
  MyDate = OldDate + %Months(1)


On Wed, 16 Jun 2004 15:01:37 -0500, michaelr_41@xxxxxxxxxxxxxx said:
> You just add it...
> 
> D MyDate          S          D
> D NewData         S          D
> /free
>   MyDate = OldDate + 1:*Month
> 
> 
> On Wed, 16 Jun 2004 12:50:47 -0700, CarollaT@xxxxxxxxxxxxxx said:
> > A simple question.  How can I add one month to a date variable... in free
> > format?  ADDDUR doesn't work with free-format, so I imagine there's some
> > way, using the invisible EVAL.  
> > 
> > Tony Carolla
> > MedAmerica Billing Services, Inc.
> > 
> > --
> > This is the RPG programming on the AS400 / iSeries (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.
> > 
> -- 
>   
>   michaelr_41@xxxxxxxxxxxxxx
> 
> --
> This is the RPG programming on the AS400 / iSeries (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.
> 
-- 
  
  michaelr_41@xxxxxxxxxxxxxx