以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  日期能否循环?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6553)

--  作者:floor2
--  发布时间:2010/4/8 16:34:00
--  日期能否循环?
 能否对日期进行循环?

dim i as date =#01/01/2010#
 for i to date.today()
........
next

这样错误,有什么办法对日期进行循环?谢谢


--  作者:foxor
--  发布时间:2010/4/8 16:43:00
--  
没有问题,例如:
Dim d As Date = #2/28/2008#
for i as integer =1 to 3
Dim d1 As Date = d.AddDays(i)
messagebox.show(d1)
next

--  作者:lxl
--  发布时间:2010/4/8 17:14:00
--  
Dim d As Date = #01/01/2010#
do while( d < Date.Today)
    \'代码
    d = d.AddDays(1)
Loop