以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  时间序列生成代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133322)

--  作者:女娲娘娘
--  发布时间:2019/4/12 8:43:00
--  时间序列生成代码
求一段代码
在一列中自动生成从2019年01月01日到2024年5月13日之间的日期,是按真实日历生成的时间序列填充,想用代码实现,不会写,或者再抽象成填写任意日期段中间自动生成日期序列。麻烦各位朋友给看看。

--  作者:有点甜
--  发布时间:2019/4/12 8:56:00
--  

方法一:序列填充 http://www.foxtable.com/webhelp/scr/0140.htm

 

方法二:写代码,如

 

Dim d1 As Date = "2019-01-01"
Dim d2 As Date = "2019-01-13"
Do While d1 <= d2
    Dim nr As Row = Tables("表A").addnew
    nr("日期") = d1
    d1 = d1.adddays(1)
Loop


--  作者:女娲娘娘
--  发布时间:2019/4/12 10:47:00
--  
感谢,生成问题解决了,但这种循环方式太慢,我想是不是要建立一个内存池先在内存中生成然后直接填入列中,这样是不是更快呢?然后想继续研究,请有点甜版主给个方向或者代码
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:时间序列.rar


--  作者:有点甜
--  发布时间:2019/4/12 13:35:00
--  
Tables("表a").StopRedraw
Dim d1 As Date = "2019-01-01"
Dim d2 As Date = "2024-05-13"
Do While d1 <= d2
    Dim nr As Row = Tables("表a").addnew
    nr("第一列") = d1
    d1 = d1.adddays(1)
Loop
Tables("表a").ResumeRedraw

--  作者:女娲娘娘
--  发布时间:2019/4/12 18:18:00
--  

图片点击可在新窗口打开查看