Re: Date question -- RPG400-L

One definition of number of months I just thought about.  If someone asked me
how long it was since January 15th to today, I would say it was 4 months and
19 days.  A month being defined as the number of the day in one month to the
number of the day in the next month, regardless of how many actual days that
was.

For example, Jan 15 to Feb. 15 is 1 month.  Mar 1st to Apr 1st is one month.
Jan 30th to Mar 1st would be a little harder to figure.  One month and 1 day?

Is this what you are looking for?  Then you just need to modify your dates
before you do the subdur.

Pseudo code:

FromDate = Beginning date. (I.E. June 1st)
ToDate = Ending Date (I.E. Jan 15th)
CalcEndDate = ToDate (I.E. June 1st)
If Number of day in To Day is LESS THAN number of day in from day
  (I.E.  1st is less than 15th)
   CalcEndDateMonth = Previous Month (Making it May 15th)
else
   CalcEndDateMonth = Current Month
End If

FromDate     SubDur   CalcEndDate   Months:*M
CalcEndDate  SubDur   ToDate        Days:*D

Now you have in Months and Days the number of Months and days between
the two dates.

This code is going to get very buggy when dealing with days of the month
from 29 to 31 dependent on the month.

HTH

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Jim Langston wrote:
> 
> 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!
> 
> Tyra_Brodsky@vfc.com wrote:
> >
> > I am trying to write a procedure that will bring back the number of months
> > between 2 dates.  The problem is that SUBDUR doesn't give me the number I
> > want.  For example, the number of months between any day in June 2001 and
> > any day in July 2001 is 1 month, June 2001 and August 2001 is 2 months,
> > etc.  Does anyone have a solution.  We are on V4R4.
> >
> > I tried Jim Langston response on 5/31/01 to Date Math....but that didn't
> > work for my problem
+---
| 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
+---