奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用) (http://www.chiefox.com.tw/bbs/showthread.php?threadid=22847)

[公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)

我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)
請給我全部程式(我只會用這個,只會放進去設定)
謝謝

回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)

引用:

---

最初由 P8774 發表
我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)
請給我全部程式(我只會用這個,只會放進去設定)
謝謝

---

回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)

引用:

---

最初由 cgjj 發表
V5.2 內建的指標公式
[f.財報3損益結構\FISK 每股盈餘 EPS]

透過參數調整可以看到每季或年累的 EPS 變化值

---

回覆: 回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)

引用:

---

最初由 P8774 發表
不好意思
我只是要匯入 附加顯示在成交量顯示值後如下:
成交:1500 股本(億):21.55 EPS:1.05 3.10
只要數值顯示即可不用圖(老了眼力不好)
只是比對成交量夠不夠 會不會太小而已
麻煩一下 謝謝你

---

回覆: 回覆: 回覆: 回覆: [公式]我要股本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;

---

回覆: 回覆: 回覆: 回覆: 回覆: [公式]我要股本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];


那我要改成甚麼樣呢?

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: [公式]我要股本EPS 本季跟年累的公式 (5.0的在5.2不能用)

引用:

---

最初由 cgjj 發表
不是用改的!!!

請新建一個公式，把我那五行程式碼直接貼入
就可以見到您要的四個項目了
不需要其他的程式碼~~

---