- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [建议]出错了！？DayOfWeek得到是字符型，英文星期几，而不是帮助里说的整数型星期几。已解决 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=81790)
-- 发布时间：2016/3/6 1:19:00
-- [建议]出错了！？DayOfWeek得到是字符型，英文星期几，而不是帮助里说的整数型星期几。已解决
如题，
dim 首次转班日期 as date
dim 起始日期 as date
首次转班日期 = 起始日期.AddDays(6 - 起始日期.DayOfWeek + 1)
首次转班日期 = 起始日期.AddDays(6 - Cint(weekday(起始日期.DayOfWeek)) + 1)
以上代码第3，4行运行结果，均为“首次转班日期 = 0：00：00”
[此贴子已经被作者于2016/3/11 14:32:21编辑过]
-- 发布时间：2016/3/6 10:49:00
--
执行这段弹出什么？
Dim 首次转班日期 As Date
Dim 起始日期 As Date = Date.today
首次转班日期 = 起始日期.AddDays(6 - 起始日期.DayOfWeek + 1)
msgbox(首次转班日期)
-- 发布时间：2016/3/11 14:30:00
--
按袍大师的方法，问题解决了，如附件图片。
msgbox(首次转班日期) 显示 " 2015-05-06"
多谢大师！
此主题相关图片如下：图片1.png