|
我已經簡化如下但問題依然還在:(指標明已變更)
// 每股盈餘 for v5.2 (Earns Per Share)
// 警告:系統公式請勿修改(未來更新會被覆蓋),如有需求請另建公式
// 僅適用日、周、月、季、半年和年線
// Update:20210831
Title:=' 每股盈餘 '+strmid('單季年累',DMode*4-3,4);
ItemQ:='I_EPS#S'; //單季資料
ItemY:='I_EPS'; //年累資料
DbTable:='FIN'; //資料表
CkBK:=INBLOCK('上市指數')+INBLOCK('上櫃指數');
CkMT:=MARKETLABEL='TW' or MARKETLABEL='TO';
CK:=CkMT and CkBK=0;
DRAWTEXTEX(CK=0,1,500,450,'當前商品不適用,本指標僅適用於個股。') COLORMAGENTA ALIGN0;
if CK=0 then exit;
Err:=datatype=10 and Not(datatypem=-1 or datatypem=-2);
DRAWTEXTEX(Err,1,500,450,'本指標 多日線 僅支援於季線、半年線。') COLORMAGENTA ALIGN0;
if Err then exit;
DYM:=FLOOR(SEQDATA('',DbTable,'DATE')/100)+190000; //資料年月
Err:=lbound(DYM)=0;
DRAWTEXTEX(Err,1,500,450,'本商品目前無相關資料存在。若尚未獲取資料,請與伺服器連線!') colorFF00FF ALIGN0;
if Err then exit;
NullAry:=barslast(barpos=0);
單季:SEQDATA('',DbTable,ItemQ) Color0000DD linethick1;
近四季:SUM(單季,4)Color850085{0000DD} linethick2;
//增減1:NullAry Color0000DD linethick0;
//±%1:NullAry Color0000DD linethick0;
//平均1:NullAry Color0000DD linethick0;
年累:SEQDATA('',DbTable,ItemY) ColorFF33DD linethick2;
//增減2:NullAry ColorFF33DD linethick0;
//±%2:NullAry ColorFF33DD linethick0;
//平均2:NullAry ColorFF33DD linethick0;
//單位:元:0 color777777 linethick0;
//年月:NullAry Color00BB99 linethick0;
股本: (FINANCE(20)/100000),color008f00,POINTDOT;
a13923707868 附帶上了此圖片:
__________________
Stephen
|