| 查看: 1049 | 回复: 3 | |||
[交流]
以步长steptime比如5分钟重复调取表中数据处理（含时间字段）出来处理咋写？
|
|
以步长steptime比如5分钟重复调取表中数据处理（含时间字段）出来处理咋写？下面代码对吗？ endtime:=firsttime; for i:=1 to n do starttime:=endtime; endtime:=IncMinute(endtime,steptime); begin //查询，处理数据 end; |
回复此楼» 猜你喜欢
327求调剂
已经有11人回复
-
08工科求调剂290分
已经有11人回复
-
一志愿985初试354分生物调剂
已经有3人回复
-
一志愿2110，化学学硕310分，本科重点双非求调剂
已经有13人回复
-
353求调剂
已经有8人回复
-
308求调剂
已经有16人回复
-
334求调剂
已经有14人回复
-
一志愿0807 数一英一 313 有没有二轮调剂
已经有7人回复
-
复试调剂，一志愿郑州大学材料与化工289分
已经有14人回复
-
086000调剂
已经有3人回复
|
// ¿ªÊ¼Ñ­»·´¦Àí 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
