Re: Date Math

[bmorris@xxxxxxxxxx]

>Date: Thu, 31 May 2001 16:10:01 -0400
>From: Bruce.Odum@cbs.fiserv.com
>
>Question when subtracting two dates using subdur the resulting month will
>always round down.  Is there any function that will allow you to see the
>remaining days to determine if you halfway thru the month so you can round
>the month up?

You could extract the number of days in the date (EXTRCT *DAYS), and
extract the number of days for the date at the end of the month,
then compare the two to see where the current date fits.

D date            s               d
D eom             s               d

 * Find the end of the current month
C     date          adddur    1:*months     eom
C                   extrct    eom:*days     days
C                   subdur    days:*days    eom
 * See if 'date' is more than halfway through the month
c                   extrct    date:*days    curDays
c                   extrct    eom:*days     daysInMonth
c                   if        curDays > %div(daysInMonth : 2)
c                       ... round up

Barbara Morris

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@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
+---