Re: MIDRANGE-L Digest V2 #1546

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

Hmm... I'm missing something here.  I have a date, say 10/13/1999 (todays date).
You move the date to a variable Temp.  Then you subtract one, doesn't that 
produce
10/12/1999 ? then you add one month so we get 11/12/1999, then you subtract one,
and come up with 11/11/1999 ?

What am I missing in this equation?

Regards,

Jim Langston

Jon.Paris@halinfo.it wrote:

> The following will supply the date of the last day of the month for the month 
>in
> which InputDate falls.
>
>  D InputDate                       D   DATFMT(*ISO)
>  D Temp                           3P 0
>
>  C                   Extract   InputDate:*D  Temp
>  C                   Eval      Temp = Temp - 1
>  C                   AddDur    1:*M          InputDate
>  C                   SubDur    1:*D          InputDate
>
> Thats's all there is to it!!
>
> +---
> | 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
> +---

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