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