主题：如何实现自动计算出每个月最后一天

RT 
此主题相关图片如下：riqi.jpg

根据每月，考虑闰年，1,3,5,7，8,10,12月为31日，2月为28,29，其他为30天。

 

在帮助中查找new date(年，月，日）的用法，比照即可。

这个方法似乎复杂了点，可否根据前面的日期，加上一个月，再减去一天? 不知道具体怎么弄

红袍大师今天休息了么

http://www.foxtable.com/help/index.html?n=2720.htm

先谢谢了，菜鸟心急，，望各位大师见笑

Select Case e.DataCol.Name
    Case "年", "月", "日"
        If e.NewValue Is Nothing Then
            e.DataRow("所属日期结束") = Nothing
        Else
            Dim y As Integer = e.DataRow("年")
            Dim m As Integer = e.DataRow("月")
            Dim dt As New Date(y, m, Date.DaysInMonth(y,m))     '获取该月的最后一天
            e.DataRow("所属日期结束") = dt
        End If
End Select

大师，小弟菜鸟，请问图中代码是要嵌套吗？如何嵌套合理？
此主题相关图片如下：dm.jpg

参考：http://www.foxtable.com/help/topics/0224.htm

谢谢大师，那我就那SELECT CASE 来重新写