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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *