| 查看: 1166 | 回复: 3 | |||
[交流]
以步长steptime比如5分钟重复调取表中数据处理（含时间字段）出来处理咋写？
|
|
以步长steptime比如5分钟重复调取表中数据处理（含时间字段）出来处理咋写？下面代码对吗？ endtime:=firsttime; for i:=1 to n do starttime:=endtime; endtime:=IncMinute(endtime,steptime); begin //查询，处理数据 end; |
回复此楼» 猜你喜欢
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有8人回复
-
极限拉扯，如何抉择
已经有7人回复
-
课题组会帮你通过考核么？
已经有6人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有9人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有7人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有9人回复
|
// ¿ªÊ¼Ñ­»·´¦Àí 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
