从某天开始，循环显示文字怎么实现？

[etannet]

比如一共8个人，从2018年2月1日开始，按顺序，每天显示一个人的名字，一直循环。

[hookee]

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

[hfhan_872914334]

1.将八个人存一个数组里。 2.取当前时间的时间戳减去2018年2月1日的时间戳，用差值算出相差多少天(下取整)。 3.用得到的差值取模，模8，得到的值就是数组的下标

[sinat_35485614]

引用 2 楼 hookee的回复:

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

这是？？？大佬，这是什么语法写的？？？

[Dogfish]

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)

[Tanyz]

一个简单的数组就可以搞定的了。动态数组才难呀。