主题：去年同月最后一天,代码有问题

excel报表beforbuild事件: mydate是全局变量

Dim y As Integer = mydate.Year '指定年份
        Dim yd1 As New Date(y, 1, 1) '本年第一天
        Dim yd2 As New Date(y-1, 1, 1) '去年第一天
       
        Dim m As Integer = mydate.Month '指定月份
        Dim md1 As New Date(y, m, 1) '本月第一天
        Dim md2 As New Date(y, m, Date.DaysInMonth(y,m)) '本月最后一天
        Dim md3 As New Date(y-1, m, 1) '去年同月第一天
        Dim md4 As New Date(y-1, m, Date.DaysInMonth(y,m)) '去年同月最后一天

------------------------------------------------------------------------------------

唯独mydate 是2016年2月份时会报错，附图：

 

此主题相关图片如下：qq截图20160805155504.jpg