This may not be the cleanest way, but, we use it here and it works. I used ABORT, so some parent program or paragraph would not keep executing.
IF FIELD(OCONV(DATE()+1,"D2/"),"/",2) + 0 = 1 THEN CRT 'This IS the last day of the month.' CRT 'ABORTING END OF DAY' ABORT END ELSE CRT 'This is NOT the last day of the month' CRT 'Running End of Day' END Whatever you do... Do it in BASIC. Don't go down the road of unix shell scripting unless you love that stuff. On Mon, Dec 5, 2011 at 2:08 PM, Dave Davis <dda...@harriscomputer.com>wrote: > Month = Oconv(current.date,'DM') ;* find month > Year = Oconv(current.date,'DY') ;* find year > Month = Month + 1 ;* find next month > If (Month > 12) then > Month = 1 > Year = Year + 1 > End > FirstDayNextMonth = Iconv(Month:"/01/":Year,'D') ;* assumes MM/DD/YYYY > format > LastDayThisMonth = FirstDayNextMonth - 1 ;* self-explanatory. > > -----Original Message----- > From: u2-users-boun...@listserver.u2ug.org [mailto: > u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson > Sent: Monday, December 05, 2011 2:03 PM > To: email@example.com > Subject: [U2] End of Month date routine > > > Does someone have a routine that, no matter what day you run it, returns > the End of Month Date ? > (Assume the end of month date, is the calendar end of month date not some > screwy business date) > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > ________________________________ > > > Dave Davis > Team Lead, R&D > > P: 614-875-4910 x108 > F: 614-875-4088 > E: dda...@harriscomputer.com > [http://www.harriscomputer.com/images/signatures/HarrisSchools.gif] > > [http://www.harriscomputer.com/images/signatures/DivisionofHarris.gif]< > http://www.harriscomputer.com/> > 6110 Enterprise Parkway > Grove City, OH > 43123 > www.harris-schoolsolutions.com<http://www.harris-schoolsolutions.com> > > This message is intended exclusively for the individual or entity to which > it is addressed. This communication may contain information that is > proprietary, privileged or confidential or otherwise legally exempt from > disclosure. If you are not the named addressee, you are not authorized to > read, print, retain, copy or disseminate this message or any part of it. If > you have received this message in error, please notify the sender > immediately by e-mail and delete all copies of the message. > > _______________________________________________ > U2-Users mailing list > U2-Users@listserver.u2ug.org > http://listserver.u2ug.org/mailman/listinfo/u2-users > -- John Thompson _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users