Dim Days As Integer
Days = Date.DaysInMonth(2007,2)
Output.Show(Days)

上述代码输出2007年2月份的天数。

再例如我们要求得2008年2月份的第一天和最后一天：

Dim Days As Integer = Date.DaysInMonth(2008,2)
Dim FirstDay As Date = New Date(2008,2,1)
Dim LastDay As Date = New Date(2008,2,Days)
OutPut.Show("第一天:" & FirstDay)
OutPut.Show("最后一天:" & LastDay)

上述代码执行后，会输出：

第一天:2008-2-1
最后一天:2008-2-29