以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  按月循环,应该怎么写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186271)

--  作者:xxfoxtable
--  发布时间:2023/4/18 16:01:00
--  按月循环,应该怎么写
 比如从199410循环到199509,应该怎么写?
--  作者:有点蓝
--  发布时间:2023/4/18 16:06:00
--  
Dim d1 As Date = CDate("1994-10-01")
Dim d2 As Date = CDate("1995-09-01")
Do While d1 <= d2
    Output.Show(d1)
    d1 = d1.AddMonths(1)
Loop