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)