| 查看: 1030 | 回复: 3 | |||
[交流]
以步长steptime比如5分钟重复调取表中数据处理（含时间字段）出来处理咋写？
|
|
以步长steptime比如5分钟重复调取表中数据处理（含时间字段）出来处理咋写？下面代码对吗？ endtime:=firsttime; for i:=1 to n do starttime:=endtime; endtime:=IncMinute(endtime,steptime); begin //查询，处理数据 end; |
回复此楼» 猜你喜欢
281求调剂（0805）
已经有12人回复
-
一志愿西南交大，求调剂
已经有4人回复
-
0854可跨调剂，一作一项核心论文五项专利，省、国级证书40+数一英一287
已经有7人回复
-
297求调剂
已经有7人回复
-
材料专硕306英一数二
已经有13人回复
-
0703化学调剂 ，六级已过，有科研经历
已经有10人回复
-
0817 化学工程 299分求调剂 有科研经历 有二区文章
已经有6人回复
-
收复试调剂生
已经有4人回复
-
材料专硕274一志愿陕西师范大学求调剂
已经有6人回复
-
331求调剂（0703有机化学
已经有8人回复
|
// ¿ªÊ¼Ñ­»·´¦Àí TimeEnd:=firsttime; TimeStart:=firsttime; for i:=1 to peroidup do TimeStart:=TimeEnd; TimeEnd:=IncMinute(TimeEnd,steptime); begin // ²éѯʱ¼ä¶ÎÊý¾Ýµ½ tempttable query1.Close; query1.Sql.clear; query1.sql.add('select * into tempttable from data1sector1 where'); query1.sql.add('ʱ¼ä > TimeStart'); query1.sql.add('and ʱ¼ä <= TimeEndt'); //#2013-08-13 00::01::18# query1.execsql; end; |
2楼2013-10-11 02:05:37
3楼2013-10-15 10:14:55
|
with table5 do begin k:=0; first; while not eof do begin k:=k+1; x[k]:=table5.fieldbyname('x').Value; y[k]:=table5.fieldbyname('y').Value; next; {x2:=table5.fieldbyname('x').Value; y2:=table5.fieldbyname('y').Value; dis:=sqr((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));} end;//end table5 while not eof do end;//end with table5 do //求max_k *sametimetable中的行数 query1.close; query1.SQL.clear; query1.SQL.add('select count(*) from sametimetable '); Query1.execsql; max_k:=query1.fields[0].asinteger; //求max_k S5:=0; //初始化S5 for l:=1 to max_k do begin for m:=2 to max_k do begin if l=m then continue; parter[l,m]:=sqrt(Power((y[m]-y[l]),2)- Power((x[m]-x[l]),2)); if parter[l,m]>9.26 then continue else S5:=S5+1; end; end;// for l:=1 to max_k do |
4楼2013-10-15 21:46:11
