-- 作者:kgmkgm
-- 发布时间:2016/8/25 16:32:52
-- 亏损5%就止损程序为何不对,请指正
stocknumber:=tholdcount(ZH);//good 帐户股票数量 for nn1=1 to stocknumber do begin N10:=stocknumber-nn1+1; kkggmm:=tholdindexlabel(N10,ZH);//good股票号是字符串
kystocknumber:=TBUYHOLDINGEX(ZH,kkggmm,1);//good 可用股票数量 DEBUGFILE(\'f:\\成本价.TXT\',\'stk:\'+kkggmm,0); DEBUGFILE(\'f:\\成本价.TXT\',\'成本价格:%.2f\',TAVGENTERPRICEEX(ZH,kkggmm)); DEBUGFILE(\'f:\\成本价.TXT\',\'C:%.2f\',DYNAINFO(7));
zs:=c<0.95*TAVGENTERPRICEEX(ZH,kkggmm);//亏损5%止损
if zs>0 then begin tsell(1,0,mkt,0,0,ZH,kkggmm),allowrepeat; end end
结果是:
2016-08-25 14:59:36.926 成本价格:9.66 2016-08-25 14:59:36.926 C:15.84 2016-08-25 14:59:39.484 stk:SH600055 2016-08-25 14:59:39.484 成本价格:19.70 2016-08-25 14:59:39.484 C:15.84 2016-08-25 15:00:03.247 stk:SZ300247 2016-08-25 15:00:03.247 成本价格:11.03 2016-08-25 15:00:03.247 C:10.53 2016-08-25 15:00:05.665 stk:SZ002060 2016-08-25 15:00:05.665 成本价格:8.59 2016-08-25 15:00:05.665 C:10.53 2016-08-25 15:00:08.037 stk:SZ002054 2016-08-25 15:00:08.037 成本价格:13.23 2016-08-25 15:00:08.037 C:10.53 2016-08-25 15:00:10.626 stk:SZ002760 2016-08-25 15:00:10.626 成本价格:41.61 2016-08-25 15:00:10.626 C:10.54 2016-08-25 15:00:13.450 stk:SZ002211 2016-08-25 15:00:13.450 成本价格:16.78 2016-08-25 15:00:13.450 C:10.54 2016-08-25 15:00:15.821 stk:SZ002102 2016-08-25 15:00:15.821 成本价格:17.48 2016-08-25 15:00:15.821 C:10.54 2016-08-25 15:00:17.880 stk:SH601011 2016-08-25 15:00:17.880 成本价格:7.69 2016-08-25 15:00:17.880 C:10.53 2016-08-25 15:00:20.423 stk:SZ300185 2016-08-25 15:00:20.423 成本价格:12.37 2016-08-25 15:00:20.423 C:10.53 2016-08-25 15:00:22.950 stk:SZ002329 2016-08-25 15:00:22.950 成本价格:19.66 2016-08-25 15:00:22.950 C:10.53 2016-08-25 15:00:25.602 stk:SZ000652 2016-08-25 15:00:25.602 成本价格:5.54 2016-08-25 15:00:25.602 C:10.53 2016-08-25 15:00:28.051 stk:SH600776 2016-08-25 15:00:28.051 成本价格:10.51 2016-08-25 15:00:28.051 C:10.53 2016-08-25 15:00:30.625 stk:SZ002402 2016-08-25 15:00:30.625 成本价格:32.06 2016-08-25 15:00:30.625 C:10.53 2016-08-25 15:00:32.591 stk:SZ002328 2016-08-25 15:00:32.591 成本价格:10.40 2016-08-25 15:00:32.591 C:10.53 2016-08-25 15:00:34.043 stk:SZ000415 2016-08-25 15:00:34.043 成本价格:7.83 2016-08-25 15:00:34.043 C:10.53 2016-08-25 15:00:34.693 stk:SZ002256 2016-08-25 15:00:34.693 成本价格:32.25 2016-08-25 15:00:34.693 C:10.53 2016-08-25 15:00:37.277 stk:SZ002047 2016-08-25 15:00:37.277 成本价格:12.32 2016-08-25 15:00:37.277 C:10.53 2016-08-25 15:00:39.290 stk:SZ002029 2016-08-25 15:00:39.290 成本价格:11.12 2016-08-25 15:00:39.290 C:10.53 2016-08-25 15:00:40.881 stk:SZ000918 2016-08-25 15:00:40.881 成本价格:11.32 2016-08-25 15:00:40.881 C:10.53 2016-08-25 15:00:42.160 stk:SZ000839 2016-08-25 15:00:42.160 成本价格:11.43 2016-08-25 15:00:42.160 C:10.53 2016-08-25 15:00:43.346 stk:SH600601 2016-08-25 15:00:43.346 成本价格:4.60 2016-08-25 15:00:43.346 C:10.53 2016-08-25 15:00:44.531 stk:SH600367 2016-08-25 15:00:44.531 成本价格:16.01 2016-08-25 15:00:44.531 C:10.53 2016-08-25 15:00:45.717 stk:SH600130 2016-08-25 15:00:45.717 成本价格:9.66 2016-08-25 15:00:45.717 C:10.53 2016-08-25 15:00:46.934 stk:SH600055 2016-08-25 15:00:46.934 成本价格:19.70 2016-08-25 15:00:46.934 C:10.53
如何正确获取操作的那个股票的当前价?
|