Re: Date Math (from Midrange-L)

I don't believe directly, but if you add the number of months back to the
original date, then compare this against the later date, you will find the
number of days remaining.

Untested code:

 * Find number of months between two dates
C     LoanDate      SubDur    DueDate       Num_Mons:*M

 * Find number of remaining days
C     LoadDate      AddDur    Num_Mons:*M   Temp_Date
C     DueDate       SubDur    Temp_Date     Num_Days:*D

 * If number of remaining days is greater than half month (15) round month up
C                   If        Num_Days > 15
C                   Eval      Num_Mons = Num_Mons + 1
C                   EndIf

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Date: Thu, 31 May 2001 16:10:01 -0400
From: Bruce.Odum@cbs.fiserv.com
Subject: Date Math

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