自制财务副图,回馈各位软件高手
一直使用各位高手的软件,现在奉上我自制的财务数据副图供各位参考使用。
优点: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))));
总分:营业收入比+营业利润比+利润总额比+净利润比;