通达信自制财务副图源码

以下是通达信自制财务副图源码

自制财务副图，回馈各位软件高手

一直使用各位高手的软件，现在奉上我自制的财务数据副图供各位参考使用。

优点：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))));

总分:营业收入比+营业利润比+利润总额比+净利润比;