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

如题，

dim 首次转班日期 as date

dim 起始日期 as date

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

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

以上代码第3，4行运行结果，均为“首次转班日期 = 0：00：00”

执行这段弹出什么？

Dim 首次转班日期 As Date

Dim 起始日期 As Date = Date.today

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

msgbox(首次转班日期)

按袍大师的方法，问题解决了，如附件图片。

msgbox(首次转班日期) 显示 " 2015-05-06"

多谢大师！