Dim FirstDay As Date = New Date(2008,2,1) '第一天Dim LastDay As Date = New Date(2008,2,Date.DaysInMonth(2008,2)) '最后一天