Re: Date Difference

["Jeffrey Young" <jefyoung@xxxxxxxxxxxxxxxx>]

Sure,
The Op code uses standard IBM date processing logic and handles leap year
with no problem.

Jeff Young
-- Certified AS/400 RPG Programmer
-- Certified AS/400 Professional System Administrator
-- Certified AS/400 Technical Specialist

----- Original Message -----
From: Rae, Chris <ChrisRae@hwrm.com>
To: <RPG400-L@midrange.com>
Sent: Monday, June 21, 1999 11:33 AM
Subject: RE: Date Difference


> Jeff,
> Thanks Jeff, the speed and quality of response from members
> of this group is amazing.
> Excuse my ignorance, but, will the function cope with a leap
> year ok?
> Regards,
> Chris
>
> -----Original Message-----
> From: jefyoung@att.net
> [mailto:jefyoung@att.net]
> Sent: Monday, June 21, 1999 3:20 PM
> To: RPG400-L@midrange.com
> Subject: Re: Date Difference
>
> Using RPG IV,
> 1. Create 2 DATE data fields
>   D Date1     S          D   Datfmt(*ISO)
>   D Date2     S          D   Datfmt(*ISO)
>
> 2. Load the dates with YOUR variables
>   C          *MDY      Move   Your_Var_1
> Date1
>   C          *MDY      Move   Your_Var_2
> Date2
>
> 3. Subtract Date1 from Date2 using the
> SUBDUR Op code
>   C          Date2     SubDur Date1
> Date_Diff:*D
>
> Note: The date formats for step 2 are
> whatever format
> your dates are in.
> The result of the SUBDUR op code can be
> Months (*M),
> Days(*D) or Years(*Y)
>
> Hope this helps,
>
> Jeff Young
> Dynax Resources, Inc
> --- Certified RPG Programmer
> --- Certified AS/400 Technical Specialist
> --- Certified AS/400 Professional System
> Administrator
> > Hi,
> > Does anybody know an
> efficient way of calculating the
> > difference between 2 dates, using either
> RPG4 or RPG400.
> > Thanks.
> >
> >
> > Chris Rae
> > * * * * * * * * * * * * * * * * * * * * *
> * * * * * * * * * * * * * * * *
> > * This is the RPG/400 Discussion Mailing
> List!  To submit a new         *
> > * message, send your mail to
> "RPG400-L@midrange.com".  To unsubscribe   *
> > * from this list send email to
> MAJORDOMO@midrange.com and specify       *
> > * 'unsubscribe RPG400-L' in the body of
> your message.  Questions should *
> > * be directed to the list owner /
> operator: david@midrange.com          *
> > * * * * * * * * * * * * * * * * * * * * *
> * * * * * * * * * * * * * * * *
> * * * * * * * * * * * * * * * * * * * * * *
> * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing
> List!  To submit a new         *
> * message, send your mail to
> "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to
> MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your
> message.  Questions should *
> * be directed to the list owner / operator:
> david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * *
> * * * * * * * * * * * * * * *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the RPG/400 Discussion Mailing List!  To submit a new         *
> * message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
> * from this list send email to MAJORDOMO@midrange.com and specify       *
> * 'unsubscribe RPG400-L' in the body of your message.  Questions should *
> * be directed to the list owner / operator: david@midrange.com          *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *