主题：事务日历 改进 在2016中出现下列错误

贴出点上一月代码

改一下

    Private Sub 表格计算()
        _月首 = CDate(Format(_date, "yyyy-MM-" & "01"))                         '获取当月的第一天日期
        Dim i_月首星期 As Integer = _月首.DayOfWeek                             '获取当月第一天是星期几
        _表首 = _月首.AddDays(-i_月首星期 + 1)                                  '获取表格第一天的日期,加一是因为从星期一开始
        Dim i_天数 As Integer = DateTime.DaysInMonth(_date.Year, _date.Month)   '获取当月的天数
        _日期行数 = Math.Ceiling((i_天数 + i_月首星期 - 1) / 7)                 '减一是因为从星期一开始
        _表尾 = _表首.AddDays(_日期行数 * 7 - 1)
        _表格行数 = _日期行数 * 2 + 2                                           '表格的行数
        Me.Rows.Count = _表格行数
        表格赋值()
    End Sub