Re: ILE - Date Substraction

Hi,
                Thanks. I will keep a fixed font hereafter. I tried
simillar to your solution provided by other members of this
forum, and it works fine to get the last day of the previous month.

Add 1 day to the date
subtract 1 month
subtract 1 day


Actually, in my situation, I need the last day of the previous month only
if the current month is end of day of that month . The above routine do
exactly simillar.

Thanks again

Regards
Raj






boothm@ibm.net on 03-25-99 06:55:00 PM

Please respond to MIDRANGE-L@midrange.com

To:   MIDRANGE-L@midrange.com
cc:    (bcc: Rajan Srinivasan/Servicing/SuperiorBank)
Subject:  Re: ILE - Date Substraction




(When posting code. please set your font to a fixed font, like courier 10
or 12.  Then we can actually see what you wrote, in columns, and not
wordwrapped.)
Wouldn't this be a matter of definition?  To me, one month before 6/30 is
in fact 5/30, not 5/31.  What did you get when you subtracted a month from
5/31?
If you are really trying to find the end of the month, then set the date to
mm/01/yyyyy and subdur 1:*D.
In another situation similar to this, I had to make a subroutine that
tested for the the 28th, 30th, and 31st day.  If those days, then test for
the problem yo encountered.



In <8525673F.006402DE.00@allfun.com>, on 03/25/99
   at 01:24 PM, Rajan.Srinivasan@Allfun.com said:
>  I tried  this.    I defined  Date1  as   a  Date Field  with (*USA)
>format.
>                            DATE1                   SUBUR
>1:*M                   DATE1
>When I executed the above statements ,   I  get the following results on
>DATE1
>DATE1(before)                               DATE1 (after)
>03/31/1998                                         2/28/1998 ok
>05/31/1998                                        04/30/1998 ok
>06/30/1998                                        05/30/1998 not  ok
>04/30/1998                                         03/30/1998 not ok
>When  I  input  value  06/30/1998  on   DATE1 ,  and after executing
>SUBDUR ,  I  get  the value  05/30/1998, whereas
>I should get  05/31/1998
>I am I doing something wrong
>Thanks
>Raj






>VENU YAMAJALA <venu_yamajala@goodyear.com> on 03-24-99 05:50:49 PM
>Please respond to MIDRANGE-L@midrange.com
>To:   MIDRANGE-L@midrange.com
>cc:    (bcc: Rajan Srinivasan/Servicing/SuperiorBank)
>Subject:  Re: ILE - Date Substraction



>U can do       Date1          SUBDUR   1:*M          Date2
>This will give the last date of previous month if Date1 is last date of
>current
>month. HTH.
>Vg
>+---
>| 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
>+---

--
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------
+---
| 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
+---