28,391
社区成员
发帖
与我相关
我的任务
分享
p = Array("A", "B", "C", "D", "E", "F", "G", "H")
startDate = CDate("2018-02-01")
endDate = CDate("2018-02-01")
diff = datediff("d", startDate, endDate)
index = diff Mod (UBound(p) + 1)
Response.Write p(index)
p = Array("A", "B", "C", "D", "E", "F", "G", "H")
start = CDate("2018-02-01")
n = 9
For i = 0 To 9
d = DateAdd("d", start, i)
n = i Mod (UBound(p) + 1)
s = Year(d) & "-" & Month(d) & "-" & Day(d) & " : " & p(n) & "<br>" & VbCrLf
Response.Write s
Next