This message serves for Google indexing. It only includes the first message of each thread from technical forums. To see the entire thread, the solutions and the technical content related to each message, you need to log in by going to the main page. This can be done at http://www.universalthread.com. If you do not have an account, we encourage you to create one now and start participating in Microsoft .NET and SQL Server related technology forums, just to name a few. Our database contains nearly two millions valuable high end technical messages. Thanks for the generous contribution to everyone who participated on the site so far, including MVP, Microsoft employees and many other well known contributors. The valuable content of the Universal Thread has created a history of 16 years of high end technical content which has helped many consultants, developers and many others in the industry on a daily basis. The site also offers a subscription option that greatly enhances your site experience.


View message
From28/07/1997 16:22:17
Michael G. Emmons #005505
Apex, North Carolina, United States
To  
All


A thread a while ago was discussing the best way to find the last day of the current month. Since I couldn't find the messages I'll go ahead and answer the question here. The following code will find the last day of the month when passed a date parameter:

Procedure LastDay
LPARAMETERS dCurrent

LOCAL lcValue, lcMonth, lcYear, ldValue, ldNewDate

ldValue = GOMONTH(dCurrent,1)
lcMonth = STR(MONTH(ldValue))
lcYear = STR(YEAR(ldValue)
lcValue = lcMonth+"/"+"01"+"/"+lcYear
ldNewDate = CTOD(lcValue) - 1

Return ldNewDate

Michael G. Emmons
memmons@nc.rr.com