Re: SUBDUR Error between two dates

["alan shore" <SHOREA@xxxxxxxx>]

I apologise if anyone has already answered this. My e-mail account had a 
problem that took a week to rectify, now I'm playing catch-up.
The two gregorian dates 02/20/39 & 02/18/80 have been "windowed" - that is - 
they are both considered ON or AFTER 01/01/40. Therefore these dates are really 
considered 02/02/2039 & 02/18/1980, hence 59 years. 

>>> "Gary Kuznitz " <docfxit@calwest.net> 05/17 6:13 PM >>>
Hi,

I can't figure out why I'm getting an error when using SUBDUR to
calculate the number of years between two dates.  I'm starting out
with
 02/20/39  in BIRTHDATE
 02/18/80 in JDATE

I end up with 59  in AGEATHIRE
It should end up with 40 years.  Does anyone know why it's wrong and
what I can do to correct it?

Thanks

Gary Kuznitz

  *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+.
  * BIRTHDATE                                   
 D BIRTHDATE                       D   DATFMT(*MDY) INZ       
 D  BDATEMM                       2  0 OVERLAY(BIRTHDATE)     
 D  BDATEDD                       2  0 OVERLAY(BIRTHDATE:4)   
 D  BDATEYY                       2  0 OVERLAY(BIRTHDATE:7)   
  * Join Date                                   
 D JDATE                           D   DATFMT(*MDY) INZ       
 D  JDATEMM                       2  0 OVERLAY(JDATE)         
 D  JDATEDD                       2  0 OVERLAY(JDATE:4)       
 D  JDATEYY                       2  0 OVERLAY(JDATE:7)       

 C     JDATE         SUBDUR    BIRTHDATE     AGEATHIRE:*Y      8 0  

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com 
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---