× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: Re: Date question
  • From: Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>
  • Date: Fri, 01 Jun 2001 16:47:13 -0700
  • Organization: Pacer International

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
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.