Try:
TODAY=DATE()
THIS.MO=OCONV(TODAY,'DM')
THIS.YR=OCONV(TODAY,'DY')
IF THIS.MO+1 LE 12 THEN
*SAME YEAR
FIRST.OF.MONTH=THIS.MONTH+1:"-":01:THIS.YR
END ELSE
*NEXT YEAR
FIRST.OF.MONTH='01-01-':THIS.YR+1
END
END.OF.MONTH=ICONV(FIRST.MONTH,'D')-1
**END.OF.MONTH IS THE INTERNAL DATE FOR THE LAST DAY OF THE MONTH
-----Original Message-----
From: Marco Antonio Rojas Castro [mailto:marco_roja...@hotmail.com]
Sent: Monday, December 05, 2011 3:49 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] End of Month date routine
TODAY = DATE()
EOM = TODAY - TODAY"DD" + 32
EOM = EOM - EOM"DD"
> To: u2-users@listserver.u2ug.org
> From: wjhon...@aol.com
> Date: Mon, 5 Dec 2011 15:16:02 -0500
> Subject: Re: [U2] End of Month date routine
>
>
> Doesn't work on my system Anthony.
> The This month o gives the month and year ok
> but the attempt to iconv that sets it to zero, it doesn't pad the "01"
into it or something
> so i just get 31 at that point.
>
> I think you were expecting that it would take "12 2011" and make it into
"12 01 2011" or whatever
> but it's not working
>
>
>
>
> -----Original Message-----
> From: George Gallen <ggal...@wyanokegroup.com>
> To: U2 Users List <u2-users@listserver.u2ug.org>
> Sent: Mon, Dec 5, 2011 12:10 pm
> Subject: Re: [U2] End of Month date routine
>
>
> Haven't checked it, but what happens on 01/31 by adding 31, it should take
you
> arch, backing up
> Will give you 02/xx (28 or 29)?
> George
> -----Original Message-----
> rom: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org]
> n Behalf Of Wols Lists
> ent: Monday, December 05, 2011 3:05 PM
> o: u2-users@listserver.u2ug.org
> ubject: Re: [U2] End of Month date routine
> On 05/12/11 19:03, Wjhonson wrote:
>
> Does someone have a routine that, no matter what day you run it, returns
the
> nd of Month Date ?
> (Assume the end of month date, is the calendar end of month date not some
> crewy business date)
> Hmmm... no-one seems to have done my approach ...
> TODAY = @DATE
> HIS.MONTH.O = OCONV (TODAY, "DMY") ;* strip day off
> EXT.MONTH.I = ICONV( THIS.MONTH.O, "D") + 31 ;* random day next month
> EXT.MONTH.O = OCONV( NEXT.MONTH.I, "DMY") ;* strip day off
> AST.DAY.I = ICONV( NEXT.MONTH.O, "D") - 1 ;* subract one day
> If you don't have a day in your i/oconv it defaults to 1, so the logic
> orks. Unfortunately you can't combine the first three lines because
> here's no number you can pick that will guarantee to land you in next
> onth whatever today's date :-(
> Cheers,
> ol
> ______________________________________________
> 2-Users mailing list
> 2-us...@listserver.u2ug.org
> ttp://listserver.u2ug.org/mailman/listinfo/u2-users
> ______________________________________________
> 2-Users mailing list
> 2-us...@listserver.u2ug.org
> ttp://listserver.u2ug.org/mailman/listinfo/u2-users
>
> _______________________________________________
> U2-Users mailing list
> U2-Users@listserver.u2ug.org
> http://listserver.u2ug.org/mailman/listinfo/u2-users
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
