Re: Incrementing dates, subtracting two dates

That does, thanks Peter

On Thu, 27 Oct 2005 16:14:09 +0200, Peter.Colpaert wrote
> Douglas,
> 
> Short answer: 1. yes.  2. yes.
> 
> Long answer: 1. DueDate = CurrentDate + %days(45)
> 2. NumberOfDays = %diff(FirstDate:SecondDate:*days)
> 
> Duedate, CurrentDate, FirstDate and SecondDate need to be defined as 
> date/timestamp fields.
> 
> HTH,
> 
> Peter Colpaert
> Application Developer
> Massive - Kontich, Belgium
> -----
> Yoda of Borg are we.  Futile is resistance, assimilated will you be.
> -----
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxx>
> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> 27/10/2005 16:04
> Please respond to RPG programming on the AS400 / iSeries
> 
>         To:     "RPG Group" <rpg400-l@xxxxxxxxxxxx>
>         cc: 
>         Subject:        Incrementing dates, subtracting two dates
> 
> Is there a relatively easy way to 1. increment a date IE: if say you 
> have a system date of 10/24/2005 and want to add 45 days to it...IE: 
> payable due date. and 2. substract two dates to get a number of days 
> IE: 10/24/2005 - 08/01/2005 to determine the number of days since.
> 
> Bob, does your service program do any of this? When I looked through 
> the help file I did not see anything that appeared to match up.
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.