<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/">
<channel>
<title>Comments on snippet: 'Last Day of the Month'</title>
<link>http://snipplr.com</link>
<description>Snipplr comments feed'</description>
<language>en-us</language>
<pubDate>Fri, 09 Jan 2009 05:40:45 GMT</pubDate>
<item>
<title>n8osapi said on 9/16/08</title>
<link>http://snipplr.com/view/6849/last-day-of-the-month/</link>
<description><![CDATA[ Function LDoM(ByVal d As Date) As Date
    Dim tmpDate As Date
    
    'Get First Day of Month
    tmpDate = DateAdd("d", (Day(d) - 1) * -1, d)
    
    'Get First Day of Next Month
    tmpDate = DateAdd("m", 1, tmpDate)
    
    'Get Last Day of This Month
    tmpDate = DateAdd("d", -1, tmpDate)
    
    LDoM = tmpDate
End Function ]]></description>
<pubDate>Tue, 16 Sep 2008 11:15:54 GMT</pubDate>
<guid>http://snipplr.com/view/6849/last-day-of-the-month/</guid>
</item>
</channel>
</rss>