主题：[建议]出错了！？DayOfWeek得到是字符型，英文星期几，而不是帮助里说的整数型星期几。已解决

执行这段弹出什么？

Dim 首次转班日期 As Date

Dim 起始日期 As Date = Date.today

首次转班日期 = 起始日期.AddDays(6 - 起始日期.DayOfWeek + 1)

msgbox(首次转班日期)