以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  遍历日期  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82748)

--  作者:大红袍
--  发布时间:2016/3/24 10:43:00
--  
Dim d1 As Date = "2016-01-02"
Dim d2 As Date = "2016-03-21"
Do While d1 <= d2
    output.show(d1)
    d1 = d1.AddDays(1)
Loop