主题：求助：在DBF表格中如何快速添加时间序列？
anna1118
[专家分：0] 发布于 2008-10-08 11:01:00
路过的朋友帮帮忙：
如图所示，希望可以快速生成每间隔1小时时间序列，不知道如何通过程序实现，目前只是一条条往里输，太麻烦了[em8]，我知道肯定有好方法，大家快来帮帮我
回复列表 （共3个回复）
沙发
hpqzxyq [专家分：960] 发布于 2008-10-08 12:55:00
USE 表名称
ZAP
N=0 &&N,Y,R,S分别为年、月、日、时
Y=8
R=3
S=18
FOR A=1 TO ? &&"?"根据你需要灌入多少日期时间决定
S=S+A*6
IF S=24
S=0
R=R+1
IF R>30 &&这里没有考虑月大月小问题，若要考虑要增加判断语句
R=1
Y=Y+1
IF Y>12
Y=1
N=N+1
ENDIF
ENDIF
ENDIF
D=PADL(ALLT(STR(Y)),2,'0')+'/'+PADL(ALLT(STR(R)),2,'0')+'/'+PADL(ALLT(STR(N)),2,'0')
T=PADL(ALLT(STR(S)),2,'0')+':00:00'
APPE BLAN
REPL DAY WITH D,TIME WITH S &&若DAY TIME为日期,时间字段应通过CTOD(),CTOT()转换
ENDFOR
BROW
板凳
anna1118 [专家分：0] 发布于 2008-10-08 14:26:00
谢谢谢谢，马上去实践，尽管还有点看不懂，但我想只要去实践实践肯定会学到不少：）
3 楼
hpqzxyq [专家分：960] 发布于 2008-10-09 19:33:00
本人在前面的回答有两处错误：
1. S=S+A*6 应为 S=S+6
2. REPL DAY WITH D,TIME WITH S 应为 REPL DAY WITH D,TIME WITH T
我来回复
您所在位置：