[RBASE-L] - Re: Something similar to DateDiff

[Gray, Damon]

Thanks Rachael. I'm going to grab a quick lunch and then take a look at your
suggestions.  

 

  _____  

From: rbase-l@rbase.com [mailto:[EMAIL PROTECTED] On Behalf Of Rachael
Malberg
Sent: Wednesday, November 19, 2008 10:48 AM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Re: Something similar to DateDiff

 

take a look at rbases iyear, imon, and iday functions to extract date parts
and calculate on 

 

 

here is my age calc that I do...


set var SRv_LastYear date =(addyr(.#date,-1))

 

update attStR_ReportingPeopInfo set +
attStR_Age='Unknown' +
where attStR_BDate='04/01/1900'

 

update attStR_ReportingPeopInfo set +
attStR_Age=(ctxt(iyr(.#date)-iyr(attStR_BDate))) +
from attStR_ReportingPeopInfo +
where attStR_BDate<>'04/01/1900' and attStR_BDate<=.SRv_LastYear and
(imon(attStR_BDate))<=(imon(.#date))

 

update attStR_ReportingPeopInfo set +
attStR_Age=(ctxt(iyr(.#date)-iyr(attStR_BDate)-1)) +
from attStR_ReportingPeopInfo +
where attStR_BDate<>'04/01/1900' and attStR_BDate<=.SRv_LastYear and
(imon(attStR_BDate))>(imon(.#date))

 

--less then a year old

update attStR_ReportingPeopInfo set +
attStR_Age=(ctxt((imon(.#date)+12)-imon(attStR_BDate))+' mos') +
from attStR_ReportingPeopInfo +
where attStR_BDate>.SRv_LastYear and (imon(attStR_BDate))>(imon(.#date))

 

update attStR_ReportingPeopInfo set +
attStR_Age=(ctxt((imon(.#date))-imon(attStR_BDate))+' mos') +
from attStR_ReportingPeopInfo +
where attStR_BDate>.SRv_LastYear and (imon(attStR_BDate))<(imon(.#date))

 

update attStR_ReportingPeopInfo set +
attStR_Age='1 mos' +
from attStR_ReportingPeopInfo +
where attStR_BDate>.SRv_LastYear and imon(attStR_BDate)=imon(.#date)

 

Have a Fabulous Day!
Rachael M.
Freelance Developer
www.DragonflyDevelopmentMN.com

        ----- Original Message ----- 

        From: Gray, Damon <mailto:[EMAIL PROTECTED]>  

        To: RBASE-L Mailing List <mailto:rbase-l@rbase.com>  

        Sent: Wednesday, November 19, 2008 12:26 PM

        Subject: [RBASE-L] - Something similar to DateDiff

         

        I'm trying to code up something that does what SQL's DateDiff( ) does
so that I can calculate a person's age from their Date of Birth.   This is
proving to be a significant challenge.  Has someone done this?  R:Base 6.5++

         

         

         

                       wwwww

                       (   @  @   )

        -------oOO---(_)---OOo-------

                        Damon J. Gray

        Anvil Corporation Business Services

                           (360) 937-0770

                  oooo0  0oooo

                  (        )   (        )

        ----------\    (----)     /-----------

                       \__)   (__/