更新一个疑似bug,具体我就不详细测试了
全局代码
Private Sub 表格计算()
_月首 = CDate(Format(_date, "yyyy-MM-01")) '获取当月的第一天日期
Dim i_月首星期 As Integer = _月首.DayOfWeek '获取当月第一天是星期几
If i_月首星期 = 0 Then i_月首星期 = 7 '如果1号是周日,计算时使用7,而不是0
If 周 <> -10000 Then
_表首 = _月首.AddDays(-i_月首星期 + 1+ 周 * 7)
Else
_表首 = _月首.AddDays(-i_月首星期 + 1) '获取表格第一天的日期,加一是因为从星期一开始
End If
Dim i_天数 As Integer = DateTime.DaysInMonth(_date.Year, _date.Month) '获取当月的天数
If 周历开个 = 0 Then
_日期行数 = Math.Ceiling((i_天数 + i_月首星期 - 1) / 7)
Else
_日期行数 = 1 '减一是因为从星期一开始
End If
'_表尾 = _表首.AddDays(_日期行数 * 7)
_表尾 = _表首.AddDays((_日期行数 * 7)-1) '2020.02.04修改
_表格行数 = _日期行数 * 2 + 2 '表格的行数
Me.Rows.Count = _表格行数
表格赋值()
End Sub