Re: Date question

Ahh, very simple then.
BeginDate = May 30th
EndDate = June 1st.

BeginDateDAy = 1 (Making it May 1st)
EndDateDay = 1 (Making it June 1st)
BeginDate SUBDUR   EndDate   Months:*M

Months now equals 1.

Regards,

Jim Langston


Tyra_Brodsky@vfc.com wrote:
> 
> Okay, I thought I was clear, but I guess I wasn't.  My user wants a month
> to be considered any date in the previous month is 1 month, any date in 2
> months previous is 2 months etc.
> 
> For example:
> 
> Today is June 1 2001.  Therefore any date in May 2001 is 1 month old, any
> date in April 2001 is 2 months old, any date in July 2001 is -1 months, any
> date in June 2001 is 0 months old.  This holds true for ANY date in June
> 2001.  Basically I need to calculate the amount of months that have elasped
> without using the DAY portion of the month.
> 
> Hope this clears it up
> 
> 
>                     Jim Langston
>                     <jimlangston@conexfr        To:     RPG400-L@midrange.com
>                     eight.com>                  cc:
>                     Sent by:                    Subject:     Re: Date question
>                     owner-rpg400-l@midra
>                     nge.com
> 
> 
>                     06/01/01 04:03 PM
>                     Please respond to
>                     RPG400-L
> 
> 
> 
> Well, technically there is one month between May 31st, 2001 and June 1st,
> 2001.
> Also, there is one day between those same dates.  It all depends on what
> your
> definition of a month is.
> 
> What, exactly, are you looking for?  Are you considering a month anything
> greater
> that 15 days?  30 days?  31 days?  28 days except in a leap year?  A month
> anything
> greater than the number of days in a current month?  All would produce
> different
> results for the same beginning and ending dates.  Each would also have a
> different
> method of calculating the values.
> 
> If you can explain what it is you want, I'm sure we have a way to produce
> those
> results.
> 
> Regards,
> 
> Jim Langston
> 
> Me transmitte sursum, Caledoni!
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

-- 


Regards,

Jim Langston

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