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
如何正确获取操作的那个股票的当前价?
DYNAINFO(7)改为C结果是相同的,本程序就是没有正确得到操作的那支股票的当时实盘价格。
你怎么判断不是当时的行情?
你可以和盘口进行比对,然后看。debugfile 输出的时间是本地计算机时间
与行情比较了,比如我有10个股票,这个C值是一轮计算时的第一支股票的C值,后面9个股的C值不变。
不是时间问题,其它时间也是如此。
监控板块,上海A,深圳A,深圳创业,你们可以自己开个模拟帐户,买几个股票,再用这样的程序测试,最好同时测试一下dynainfo(25),(31).
图如何放得上来呢?
贴图教程 http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=31614
使用IE浏览器贴图