Re: Query/400 and dates

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

//--- forwarded letter -------------------------------------------------------
> X-Mailer: Mozilla 3.04 (Win95; I)
> Date: Mon, 09 Mar 98 00:30:58 -0500
> From: boothm@ibm.net
> To: MIDRANGE-L@midrange.com
> Reply-To: MIDRANGE-L@midrange.com
> Subject: Re: Query/400 and dates

> 
> I couldn't answer sooner  -  my motherboard and hard drive died a
> painful and agonizing death.
> 
> Thank you for the answer to this problem for us.
> 
> Actully, as near as we could find, this worked very well.  Years seemed
> to be correct, even when the birthday hadn't happened yet.  One change
> we made that worked was in the substring.  I have changed it here; note
> the '19' and note that I removed the "digits" keyword.
> 
> 
> Simon Coulter wrote:
> 
> > Assuming your job date format is *MDY
> > 
> > AGE = YEAR(CURRENT(DATE) - DATE(SUBSTR(BIRTHDT, 3 ,2) || '/' ||
> >                                 SUBSTR(BIRTHDT, 5 ,2) || '/' ||'19'||
> >                                 SUBSTR(BIRTHDT, 1 ,2) ) )

Hello Booth,

Well I'm surprised the YEAR function gives the correct value but it's 
interesting to know.  I 
assumed your BIRTHDT field was numeric hence the DIGITS function.

Can you be sure about the '19'.  It'll be OK at the moment but in a couple of 
years ....

Anyway I'm glad it helped.

Regards,
Simon Coulter.

//----------------------------------------------------------
// FlyByNight Software         AS/400 Technical Specialists
// Phone: +61 3 9419 0175      Mobile: +61 3 0411 091 400
// Fax:   +61 3 9419 0175      E-mail: shc@flybynight.com.au
// 
// Windoze should not be open at Warp speed.
 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---