 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18091 |
這選股公式, 會選出上市加上櫃總額前100大的商品
您可試試跑一輪要多久
若是盤中跑可能會超過100個商品被選中
(因為計算的時間差,前100大可能已改變)
原碼:
選:0;
TWNAME:='上市股票'; TONAME:='上櫃股票';
CK:=STKINBLOCK(STKLABEL,TWNAME) or STKINBLOCK(STKLABEL,TONAME);
if CK=0 then exit;
TWSUM:=STKCOUNT(TWNAME); TOSUM:=STKCOUNT(TONAME);
AllSUM:=TWSUM+TOSUM;
if AllSUM=0 then exit;
VARIABLE: StkAry[AllSUM]='', StkAMT[AllSUM]=0;
StkNo:=0; NowStk:=MARKETLABEL+STKLABEL;
FOR i= 1 to TWSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TWNAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
FOR i= 1 to TOSUM do begin
StkNo:=StkNo+1;
StkAry[StkNo]:=STKFROMBLK(TONAME,i);
StkAMT[StkNo]:=DYNAINFO2(10,StkAry[StkNo]);
end;
tmp:=SORTPOS(StkAMT,1,1,AllSUM);
EndNo:=100; NowStk:=MARKETLABEL+STKLABEL;
if AllSUM<100 then EndNo:=AllSUM;
for i=1 to EndNo do begin
if NowStk = StkAry[StkAMT[i]] then break;
end;
選:=i<=EndNo;
|
|
向版主報告此篇 |  |
|
2009-12-03 20:14 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|