相關(guān)標(biāo)簽: F10財務(wù)指標(biāo)公式源碼，飛狐交易師破解版，F(xiàn)10財務(wù)公式源碼，F(xiàn)10財務(wù)指標(biāo)，F(xiàn)10資料公式，F(xiàn)10資料源碼 、

F10財務(wù)指標(biāo)公式源碼：

a:=F10FIND('【十大流通股東】:',1);a0:=F10FIND('主要指標(biāo):',1);
c0:=F10FIND('控盤情況:',a0);hs:=F10FIND('總戶數(shù)',500);
IF c0>0 THEN BEGIN
bb:=F10TEXT(c0+196,12);bb0:=F10TEXT(c0+9,63);bb1:=F10TEXT(c0+72,63);
bb2:=F10TEXT(c0+134,63);bb3:=F10TEXT(c0+196,63);bb4:=F10TEXT(c0+258,63);
bb5:=F10TEXT(c0+319,63);bb6:=F10TEXT(c0+382,63);bb7:=F10TEXT(c0+445,63);
q1:=F10FIND('201',hs+10);q2:=F10FIND('201',q1+40);
g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10));
gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);戶數(shù)差:=gd1-gd2;
DRAWTEXTex(戶數(shù)差<0,1,740,130,'市場籌碼較上期集中'),color0000FF;
DRAWTEXTex(戶數(shù)差>0,1,740,130,'市場籌碼較上期分散'),color00FF00;
DRAWTEXTEX(c,1,670,0,'報表日期:'+bb+'日'+' 控盤情況');
DRAWTEXTEX(c,1,610,200,''+bb0+' \n'+bb1+' \n'+bb2+' \n'+bb3+' \n'
+bb4+' \n'+bb5+' \n'+bb6+' \n'+bb7+''),COLOR00DDDD;
END;{本文 來源:'www.328588.com '}
QSq:=F10FIND('按照資產(chǎn)負(fù)債率排名',5000);QSZ:=F10FIND('按照每股收益排名',5000);
GD:=STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例:',500),22),8)); {本文來至CXH99.COM}
a1:=F10FIND(' 1│',a);a2:=F10FIND(' 2│',a1);a3:=F10FIND(' 3│',a2);
a4:=F10FIND(' 4│',a3);a5:=F10FIND(' 5│',a4);a6:=F10FIND(' 6│',a5);
a7:=F10FIND(' 7│',a6);a8:=F10FIND(' 8│',a7);a9:=F10FIND(' 9│',a8);
a10:=F10FIND('10│',a9);hj:=FINANCE(7)/gd1;
DRAWTEXTEX(C,1,130,0,''+F10TEXT(a1,0)+'\n'+F10TEXT(a2,0)+'\n'+F10TEXT(a3,0)
+'\n'+F10TEXT(a4,0)+'\n'+F10TEXT(a5,0)+'\n'+F10TEXT(a6,0)+'\n'+F10TEXT(a7,0)
+'\n'+F10TEXT(a8,0)+'\n'+F10TEXT(a9,0)+'\n'+F10TEXT(a10,0)),color00DDDD;
DRAWTEXTEX(C,1,0,10,'證券代碼: '+STKLABEL+'\n\n證券名稱:'+STKNAME),color00DDDD;
DRAWTEXTEX(c,1,0,220,'每股收益:'+'第 '+F10TEXT(QSz+50,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(c,1,0,330,'資產(chǎn)負(fù)債:'+'第 '+F10TEXT(QSq+52,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,440,'流通/戶數(shù):'+NUMTOSTR(hj,2)+'萬股'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,550,'流通/股東:'+NUMTOSTR(GD,2)+' %'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,660,''+IF(戶數(shù)差<0,'戶數(shù)減少:'+NUMTOSTR(abs(戶數(shù)差),0)+'戶','')),Color0000FF;
DRAWTEXTEX(C,1,0,660,''+IF(戶數(shù)差>0,'戶數(shù)增加:'+NUMTOSTR(戶數(shù)差,0)+'戶','')),Color00FF00; {內(nèi)容來至程序化交易網(wǎng) CXH99.COM}