 |
自制财务副图公式
一直使用各位高手的软件，现在奉上我自制的财务数据副图供各位参考使用。
优点：l、基本面一目了然2、克服通达信专业财务函数无法输出序列数据3、克服通达信无循环语言。
缺点：l、上市晚的数据引用可能出错（不足同季财务数据引用了第一个交易日财务数据）此问题已修改，然而财报中间差一期的问题还无法解决2、如果提前公布季报可能出错（通达信引用季报期的函数FINANCE(37)无法输出序列数据，只能通过33l、630、930、l231来确定）3、还有不足之处请反馈，谢谢！
以下为代码：
M:=MONTH;
季报期:IF(12>=M AND M>9,3,IF(9>=M AND M>6,2,IF(6>=M AND M>3,1,4))),LINETHICK0;
季报:FINVALUE(1);
S:=BARSLASTCOUNT(REF(FINVALUE(1),1)=FINVALUE(1));
S2:=IF(S=0,REF(S,1),0);
S3:=SUMBARS(S2>0,4);
同期季报:IF(SUM(S2,S3)<S3,0,REF(季报,S3));
SN:=SUMBARS(S2>0,季报期);
SQ:=SUMBARS(S2>0,季报期+4);
上年年报:REF(季报,SN),LINETHICK0;
前年年报:=REF(季报,SQ),LINETHICK0;
季报营业收入:=FINVALUE(74);
同期营业收入:=REF(季报营业收入,S3);
季报营业利润:=FINVALUE(86);
同期营业利润:=REF(季报营业利润,S3);
季报利润总额:=FINVALUE(92);
同期利润总额:=REF(季报利润总额,S3);
季报净利润:=FINVALUE(95);
同期净利润:=REF(季报净利润,S3);
上年增长率:=IF(前年年报>0 AND 上年年报-前年年报>0,(上年年报-前年年报)/前年年报*100,0);
季报增长率:IF(季报>=0 AND 同期季报>0,(季报-同期季报)/同期季报*100,IF(同期季报<0 AND 季报>0,100,IF(同期季报>0 AND 季报<0,-100,IF(同期季报=0,0,-100)))),LINETHICK2;
营业收入比:=IF(季报营业收入>0 AND 同期营业收入>0 AND 季报营业收入/同期营业收入>1.2,3,IF(季报营业收入>0 AND 同期营业收入>0 AND 季报营业收入/同期营业收入<1.2,0,IF(季报营业收入>0 AND 同期营业收入<0,2,IF(季报营业收入<0,0,0))));
营业利润比:=IF(季报营业利润>0 AND 同期营业利润>0 AND 季报营业利润/同期营业利润>1.2,3,IF(季报营业利润>0 AND 同期营业利润>0 AND 季报营业利润/同期营业利润<1.2,0,IF(季报营业利润>0 AND 同期营业利润<0,2,IF(季报营业利润<0,0,0))));
利润总额比:=IF(季报利润总额>0 AND 同期利润总额>0 AND 季报利润总额/同期利润总额>1.2,3,IF(季报利润总额>0 AND 同期利润总额>0 AND 季报利润总额/同期利润总额<1.2,0,IF(季报利润总额>0 AND 同期利润总额<0,2,IF(季报利润总额<0,0,0))));
净利润比:=IF(季报净利润>0 AND 同期净利润>0 AND 季报净利润/同期净利润>1.2,3,IF(季报净利润>0 AND 同期净利润>0 AND 季报净利润/同期净利润<1.2,0,IF(季报净利润>0 AND 同期净利润<0,2,IF(季报净利润<0,0,0))));
总分:营业收入比+营业利润比+利润总额比+净利润比;