|
机构数量和连续几年的净利润与扣非
公式并非原创，也是从论坛得到的，做了些修改：
1.自动适应年份
2.增加了一年的数据
3.所有坐标都改用变量，方便更改。
4.去除了数据的柱形对比
5.增加了同比列。
这个需要下载专业财务数据
{年份:=20;}{2020年就是20 2021就是21 以此类推}
年份:=INTPART((MACHINEDATE-01000000)/10000);{机器时间去除得到年份的后2位数}
列17年:=0.21;
列18年:=0.41;
列19年:=0.61;
列20年:=0.81;
列18同比:=0.54;
列19同比:=0.74;
列20同比:=0.94;
行一季:=0.10;
行二季:=0.20;
行三季:=0.30;
行四季:=0.40;
行扣非一季:=0.60;
行扣非二季:=0.70;
行扣非三季:=0.80;
行扣非四季:=0.90;
行年标题:=0.00;
行扣非标题:=0.5;
{今年}
第一季20:=FINONE(232,年份,331)/10000;
第二季20:=FINONE(232,年份,630)/10000;
第三季20:=FINONE(232,年份,930)/10000;
第四季20:=FINONE(232,年份,1231)/10000;
第一季20扣:=FINONE(233,年份,331)/10000;
第二季20扣:=FINONE(233,年份,630)/10000;
第三季20扣:=FINONE(233,年份,930)/10000;
第四季20扣:=FINONE(233,年份,1231)/10000;
{去年}
第一季19:=FINONE(232,年份-1,331)/10000;
第二季19:=FINONE(232,年份-1,630)/10000;
第三季19:=FINONE(232,年份-1,930)/10000;
第四季19:=FINONE(232,年份-1,1231)/10000;
第一季19扣:=FINONE(233,年份-1,331)/10000;
第二季19扣:=FINONE(233,年份-1,630)/10000;
第三季19扣:=FINONE(233,年份-1,930)/10000;
第四季19扣:=FINONE(233,年份-1,1231)/10000;
{前年}
第一季18:=FINONE(232,年份-2,331)/10000;
第二季18:=FINONE(232,年份-2,630)/10000;
第三季18:=FINONE(232,年份-2,930)/10000;
第四季18:=FINONE(232,年份-2,1231)/10000;
第一季18扣:=FINONE(233,年份-2,331)/10000;
第二季18扣:=FINONE(233,年份-2,630)/10000;
第三季18扣:=FINONE(233,年份-2,930)/10000;
第四季18扣:=FINONE(233,年份-2,1231)/10000;
{大前年}
第一季17:=FINONE(232,年份-3,331)/10000;
第二季17:=FINONE(232,年份-3,630)/10000;
第三季17:=FINONE(232,年份-3,930)/10000;
第四季17:=FINONE(232,年份-3,1231)/10000;
第一季17扣:=FINONE(233,年份-3,331)/10000;
第二季17扣:=FINONE(233,年份-3,630)/10000;
第三季17扣:=FINONE(233,年份-3,930)/10000;
第四季17扣:=FINONE(233,年份-3,1231)/10000;
{大前年}
DRAWTEXT_FIX(ISLASTBAR,列17年,行年标题,0,STRCAT(CON2STR(年份-3,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非标题,0,'扣非'),COLORRED;
{STICKLINE(CURRBARSCOUNT=208 AND 第一季17>=0,0,第一季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=208 AND 第一季17<0,0,ABS(第一季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季17扣,2),'万元'))),COLORLIGRAY;
{STICKLINE(CURRBARSCOUNT=202 AND 第二季17>=0,0,第二季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=202 AND 第二季17<0,0,ABS(第二季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季17扣,2),'万元'))),COLORLIGRAY;
{STICKLINE(CURRBARSCOUNT=196 AND 第三季17>=0,0,第三季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=196 AND 第三季17<0,0,ABS(第三季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季17扣,2),'万元'))),COLORLIGRAY;
{STICKLINE(CURRBARSCOUNT=190 AND 第四季17>=0,0,第四季17,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=190 AND 第四季17<0,0,ABS(第四季17),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列17年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季17,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季17扣,2),'万元'))),COLORLIGRAY;
{前年}
DRAWTEXT_FIX(ISLASTBAR,列18年,行年标题,0,STRCAT(CON2STR(年份-2,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非标题,0,'同比'),COLORRED;
{STICKLINE(CURRBARSCOUNT=152 AND 第一季18>=0,0,第一季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=152 AND 第一季18<0,0,ABS(第一季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非一季,0,STRCAT(CON2STR((第一季18扣/第一季17扣-1)*100,2),'%')),COLORRED;
{STICKLINE(CURRBARSCOUNT=146 AND 第二季18>=0,0,第二季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=146 AND 第二季18<0,0,ABS(第二季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非二季,0,STRCAT(CON2STR((第二季18扣/第二季17扣-1)*100,2),'%')),COLORRED;
{STICKLINE(CURRBARSCOUNT=140 AND 第三季18>=0,0,第三季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=140 AND 第三季18<0,0,ABS(第三季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非三季,0,STRCAT(CON2STR((第三季18扣/第三季17扣-1)*100,2),'%')),COLORRED;
{STICKLINE(CURRBARSCOUNT=134 AND 第四季18>=0,0,第四季18,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=134 AND 第四季18<0,0,ABS(第四季18),19,0),COLORGREEN;}
DRAWTEXT_FIX(ISLASTBAR,列18年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季18,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季18扣,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非四季,0,STRCAT(CON2STR((第四季18扣/第四季17扣-1)*100,2),'%')),COLORRED;
{去年}
DRAWTEXT_FIX(ISLASTBAR,列19年,行年标题,0,STRCAT(CON2STR(年份-1,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非标题,0,'同比'),COLORRED;
{STICKLINE(CURRBARSCOUNT=96 AND 第一季19>=0,0,第一季19,19,0),COLORRED;
STICKLINE(CURRBARSCOUNT=96 AND 第一季19<0,0,ABS(第一季19),19,0),COLORGREEN;}
|
