- 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
--
