通达信【业绩统计】个股的财报副图指标 源码贴图

{业绩统计，理想论坛 菩提子22 搜集整理}
年份:=INTPART((MACHINEDATE-01000000)/10000);{机器时间去除得到年份的后2位数}
列16年:=0.01;
列17年:=0.21;
列18年:=0.41;
列19年:=0.61;
列20年:=0.81;
列21年:=1.01;

列17同比:=0.34;
列18同比:=0.54;
列19同比:=0.74;
列20同比:=0.94;
列21同比:=1.14;

行一季:=0.05;
行二季:=0.12;
行三季:=0.20;
行四季:=0.30;

行扣非一季:=0.50;
行扣非二季:=0.60;
行扣非三季:=0.70;
行扣非四季:=0.80;
行扣非全年:=0.9;

行年标题:=-0.02;
行扣非标题:=0.4;

{今年}
第一季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;
全年20扣:=第一季20扣+第二季20扣+第三季20扣+第四季20扣;
{去年}
第一季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;
全年19扣:=第一季19扣+第二季19扣+第三季19扣+第四季19扣;
{前年}
第一季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;
全年18扣:=第一季18扣+第二季18扣+第三季18扣+第四季18扣;
{大前年}
第一季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;
全年17扣:=第一季17扣+第二季17扣+第三季17扣+第四季17扣;
{大大前年}
第一季16:=FINONE(232,年份-4,331)/10000;
第二季16:=FINONE(232,年份-4,630)/10000;
第三季16:=FINONE(232,年份-4,930)/10000;
第四季16:=FINONE(232,年份-4,1231)/10000;

第一季16扣:=FINONE(233,年份-4,331)/10000;
第二季16扣:=FINONE(233,年份-4,630)/10000;
第三季16扣:=FINONE(233,年份-4,930)/10000;
第四季16扣:=FINONE(233,年份-4,1231)/10000;
全年16扣:=第一季16扣+第二季16扣+第三季16扣+第四季16扣;

{大大前年}
DRAWTEXT_FIX(ISLASTBAR,列16年,行年标题,0,STRCAT(CON2STR(年份-4,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列16年,行扣非标题,0,'扣非'),COLORRED;


DRAWTEXT_FIX(ISLASTBAR,列16年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季16,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列16年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季16扣,2),'万元'))),COLORLIGRAY;


DRAWTEXT_FIX(ISLASTBAR,列16年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季16,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列16年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季16扣,2),'万元'))),COLORLIGRAY;


DRAWTEXT_FIX(ISLASTBAR,列16年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季16,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列16年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季16扣,2),'万元'))),COLORLIGRAY;

DRAWTEXT_FIX(ISLASTBAR,列16年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季16,2),'万元'))),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,列16年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季16扣,2),'万元'))),COLORLIGRAY;

DRAWTEXT_FIX(ISLASTBAR,列16年,行扣非全年,0,STRCAT('[全 年] ',STRCAT(CON2STR(全年16扣,2),'万元'))),COLOR99FFCC;
{大前年}

DRAWTEXT_FIX(ISLASTBAR,列17年,行年标题,0,STRCAT(CON2STR(年份-3,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列17同比,行扣非标题,0,'同比'),COLORRED;

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,列17同比,行扣非一季,0,STRCAT(CON2STR((第一季17扣/第一季16扣-1)*100,2),'%')),COLORRED;

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,列17同比,行扣非二季,0,STRCAT(CON2STR((第二季17扣/第二季16扣-1)*100,2),'%')),COLORRED;

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,列17同比,行扣非三季,0,STRCAT(CON2STR((第三季17扣/第三季16扣-1)*100,2),'%')),COLORRED;

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,列17同比,行扣非四季,0,STRCAT(CON2STR((第四季17扣/第四季16扣-1)*100,2),'%')),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列17年,行扣非全年,0,STRCAT('[全 年] ',STRCAT(CON2STR(全年17扣,2),'万元'))),COLOR99FFCC;
DRAWTEXT_FIX(ISLASTBAR,列17同比,行扣非全年,0,STRCAT(CON2STR((全年17扣/全年16扣-1)*100,2),'%')),COLOR99FFCC;
{前年}
DRAWTEXT_FIX(ISLASTBAR,列18年,行年标题,0,STRCAT(CON2STR(年份-2,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列18年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非标题,0,'同比'),COLORRED;


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,列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,列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,列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,列18年,行扣非全年,0,STRCAT('[全 年] ',STRCAT(CON2STR(全年18扣,2),'万元'))),COLOR99FFCC;
DRAWTEXT_FIX(ISLASTBAR,列18同比,行扣非全年,0,STRCAT(CON2STR((全年18扣/全年17扣-1)*100,2),'%')),COLOR99FFCC;

{去年}
DRAWTEXT_FIX(ISLASTBAR,列19年,行年标题,0,STRCAT(CON2STR(年份-1,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非标题,0,'同比'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列19年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季19,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季19扣,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非一季,0,STRCAT(CON2STR((第一季19扣/第一季18扣-1)*100,2),'%')),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列19年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季19,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季19扣,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非二季,0,STRCAT(CON2STR((第二季19扣/第二季18扣-1)*100,2),'%')),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列19年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季19,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季19扣,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非三季,0,STRCAT(CON2STR((第三季19扣/第三季18扣-1)*100,2),'%')),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列19年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季19,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季19扣,2),'万元'))),COLORWHITE;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非四季,0,STRCAT(CON2STR((第四季19扣/第四季18扣-1)*100,2),'%')),COLORRED;



DRAWTEXT_FIX(ISLASTBAR,列19年,行扣非全年,0,STRCAT('[全 年] ',STRCAT(CON2STR(全年19扣,2),'万元'))),COLOR99FFCC;
DRAWTEXT_FIX(ISLASTBAR,列19同比,行扣非全年,0,STRCAT(CON2STR((全年19扣/全年18扣-1)*100,2),'%')),COLOR99FFCC;

{今年}
DRAWTEXT_FIX(ISLASTBAR,列20年,行年标题,0,STRCAT(CON2STR(年份,0),' 年')),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列20年,行扣非标题,0,'扣非'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,列20同比,行扣非标题,0,'同比'),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列20年,行一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季20,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20年,行扣非一季,0,STRCAT('[一季度] ',STRCAT(CON2STR(第一季20扣,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20同比,行扣非一季,0,STRCAT(CON2STR((第一季20扣/第一季19扣-1)*100,2),'%')),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列20年,行二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季20,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20年,行扣非二季,0,STRCAT('[二季度] ',STRCAT(CON2STR(第二季20扣,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20同比,行扣非二季,0,STRCAT(CON2STR((第二季20扣/第二季19扣-1)*100,2),'%')),COLORRED;


DRAWTEXT_FIX(ISLASTBAR,列20年,行三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季20,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20年,行扣非三季,0,STRCAT('[三季度] ',STRCAT(CON2STR(第三季20扣,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20同比,行扣非三季,0,STRCAT(CON2STR((第三季20扣/第三季19扣-1)*100,2),'%')),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,列20年,行四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季20,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20年,行扣非四季,0,STRCAT('[四季度] ',STRCAT(CON2STR(第四季20扣,2),'万元'))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,列20同比,行扣非四季,0,STRCAT(CON2STR((第四季20扣/第四季19扣-1)*100,2),'%')),COLOR99FFCC;

DRAWTEXT_FIX(ISLASTBAR,列20年,行扣非全年,0,STRCAT('[全 年] ',STRCAT(CON2STR(全年20扣,2),'万元'))),COLOR99FFCC;
DRAWTEXT_FIX(ISLASTBAR,列20同比,行扣非全年,0,STRCAT(CON2STR((全年20扣/全年19扣-1)*100,2),'%')),COLOR99FFCC;