 |
P8774
初級會員
註冊日期: Sep 2006
來 自:
文章數量: 8 |
回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)
引用: 最初由 cgjj 發表
V5.2 內建的指標公式
[f.財報3損益結構\FISK 每股盈餘 EPS]
透過參數調整可以看到每季或年累的 EPS 變化值
不好意思
我只是要匯入 附加顯示在成交量顯示值後如下:
成交:1500 股本(億):21.55 EPS:1.05 3.10
只要數值顯示即可不用圖(老了眼力不好)
只是比對成交量夠不夠 會不會太小而已
麻煩一下 謝謝你
|
|
向版主報告此篇 |  |
|
2021-02-05 18:54 |
|
|
|  |
 |
P8774
初級會員
註冊日期: Sep 2006
來 自:
文章數量: 8 |
回覆: 回覆: 回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)
引用: 最初由 cgjj 發表
成交張數:V linethick;
成交張數:=成交張數[datacount];
期末股本_億:SEQDATA('','FIN','A_CAP','Last')/100000 linethick;
EPS單季:SEQDATA('','FIN','I_EPS#S','Last') linethick;
EPS年累:SEQDATA('','FIN','I_EPS','Last') linethick;
以前是這樣的:
{Volume , VOJ , 成交量 , 在股票時為成交張數 & 在指數時為成交金額 億}
X:=STKINBLOCK(STKLABEL,'上市指數') OR STKINBLOCK(STKLABEL,'上櫃指數');
XA1:=MA(VOL,N1);
XA2:=MA(VOL,N2);
XA3:=MA(VOL,N3);
XA:=VOL;
YA1:=MA(AMOUNT,N1)/100000000;
YA2:=MA(AMOUNT,N2)/100000000;
YA3:=MA(AMOUNT,N3)/100000000;
YA:=AMOUNT/100000000;
MA1:IF(X=0,XA1,YA1),ColorBBBBBB;
MA2:IF(X=0,XA2,YA2),ColorCCFF11;
MA3:IF(X=0,XA3,YA3),Color99AAFF;
成交:IF(X=0,INTPART(XA),YA),VOLSTICK,ColorFFCC11;
STICKLINE(C>REF(C,1),0,成交,6,0),Color6622CC;
STICKLINE(C<REF(C,1),0,成交,6,0),Color66FF66;
PARTLINE(C>0,MA1),ColorBBBBBB;
PARTLINE(C>0,MA2),ColorCCFF11;
PARTLINE(C>0,MA3),Color99AAFF;
股本【億】:FINANCE( 1)/10000,linethick0;
EPS :FINANCE(34);
PN1:=F10FIND('單季每股盈餘',1);
PN2:=F10FIND('年度每股盈餘',PN1);
UseStr:=F10TEXT(PN1,PN2-PN1);
SPos:=1; NowPos:=0; FPosS:=0;
VARIABLE:QQEPS[3]=0;
for i=1 to 3 do begin
FPosS:=strfind(UseStr,'元',FPosS+1);
while FPosS>0 do begin
OldPos:=NowPos;
NowPos:=strfind(UseStr,' ',SPos);
if NowPos>FPosS or NowPos=0 then begin
break;
end;
SPos:=NowPos+1;
end;
if OldPos=0 or FPosS=0 then break;
QQEPS[i]:=if(NowPos>0,strtonum(strmid(UseStr,OldPos,FPosS-OldPos)),0);
end;
近三季EPS逐季成長:=i=4 and QQEPS[1]>QQEPS[2] and QQEPS[2]>QQEPS[3];
QQEPS[1];
那我要改成甚麼樣呢?
|
|
向版主報告此篇 |  |
|
2021-02-05 20:10 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18091 |
回覆: 回覆: 回覆: 回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)
引用: 最初由 P8774 發表
以前是這樣的:
{Volume , VOJ , 成交量 , 在股票時為成交張數 & 在指數時為成交金額 億}
X:=STKINBLOCK(STKLABEL,'上市指數') OR STKINBLOCK(STKLABEL,'上櫃指數');
XA1:=MA(VOL,N1);
XA2:=MA(VOL,N2);
XA3:=MA(VOL,N3);
XA:=VOL;
YA1:=MA(AMOUNT,N1)/100000000;
YA2:=MA(AMOUNT,N2)/100000000;
YA3:=MA(AMOUNT,N3)/100000000;
YA:=AMOUNT/100000000;
MA1:IF(X=0,XA1,YA1),ColorBBBBBB;
MA2:IF(X=0,XA2,YA2),ColorCCFF11;
MA3:IF(X=0,XA3,YA3),Color99AAFF;
成交:IF(X=0,INTPART(XA),YA),VOLSTICK,ColorFFCC11;
STICKLINE(C>REF(C,1),0,成交,6,0),Color6622CC;
STICKLINE(C<REF(C,1),0,成交,6,0),Color66FF66;
PARTLINE(C>0,MA1),ColorBBBBBB;
PARTLINE(C>0,MA2),ColorCCFF11;
PARTLINE(C>0,MA3),Color99AAFF;
股本【億】:FINANCE( 1)/10000,linethick0;
EPS :FINANCE(34);
PN1:=F10FIND('單季每股盈餘',1);
PN2:=F10FIND('年度每股盈餘',PN1);
UseStr:=F10TEXT(PN1,PN2-PN1);
SPos:=1; NowPos:=0; FPosS:=0;
VARIABLE:QQEPS[3]=0;
for i=1 to 3 do begin
FPosS:=strfind(UseStr,'元',FPosS+1);
while FPosS>0 do begin
OldPos:=NowPos;
NowPos:=strfind(UseStr,' ',SPos);
if NowPos>FPosS or NowPos=0 then begin
break;
end;
SPos:=NowPos+1;
end;
if OldPos=0 or FPosS=0 then break;
QQEPS[i]:=if(NowPos>0,strtonum(strmid(UseStr,OldPos,FPosS-OldPos)),0);
end;
近三季EPS逐季成長:=i=4 and QQEPS[1]>QQEPS[2] and QQEPS[2]>QQEPS[3];
QQEPS[1];
那我要改成甚麼樣呢?
不是用改的!!!
請新建一個公式,把我那五行程式碼直接貼入
就可以見到您要的四個項目了
不需要其他的程式碼~~
|
|
向版主報告此篇 |  |
|
2021-02-05 22:16 |
|
|
|  |
 |
P8774
初級會員
註冊日期: Sep 2006
來 自:
文章數量: 8 |
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)
引用: 最初由 cgjj 發表
不是用改的!!!
請新建一個公式,把我那五行程式碼直接貼入
就可以見到您要的四個項目了
不需要其他的程式碼~~
已經完成了 謝謝你
|
|
向版主報告此篇 |  |
|
2021-02-05 22:55 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|