主题：代码在一月份时出错？

下面的代码当前时间是一月份时会出错，请前辈帮忙修改。

Dim d As Date = Date.Today
Dim Year As Integer = d.year
Dim Month As Integer = d.month
Dim StartDate As Date = New Date(Year,Month,1)
Dim EndDate As Date = New Date(Year,Month-1,Date.DaysInMonth(Year,Month-1))
OutPut.Show(startdate)
OutPut.Show(enddate)

此主题相关图片如下：我的代码 在1月份时出错？.jpg