28,406
社区成员
发帖
与我相关
我的任务
分享
s = "11,22,33,44,55" ‘经理的字串
ar = split(s, ",") ’把经理们转成数组
FirstDate = CDate("2014-12-31") ‘第一天的前一天
CurrentDate = CDate("2015-02-12") ‘今天谁值班的日子
Diff = datediff("d", FirstDate, CurrentDate)
Pos = Round(Diff/7.0000000001+0.5)
arIndex = (Pos-1) mod 5
msgbox ar(arIndex) ’获得今天谁值班