以文本方式查看主题 - 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 |