Dim d As Date = Date.Today Output.Show("本年第一天:" & New Date(d.Year,1,1)) Output.Show("本年最后一天:" & New Date(d.Year,12,Date.DaysInMonth(d.Year,1))) Output.Show("本月第一天:" & New Date(d.Year,d.Month,1)) Output.Show("本月最后一天:" & New Date(d.Year,12,Date.DaysInMonth(d.Year,d.Month)))