通达信国九新规考核 避雷首选！呆呆兔精品 副图指标 源码附图
通达信国九新规考核 避雷首选！呆呆兔精品 副图指标 源码附图
M:=1;
NF:=2;
{扫雷宝变色}
安全分:=SAFESCORE;
扫雷宝:=STRCAT(STRCAT('【扫雷宝：',VAR2STR(安全分,0)),'分】');
DRAWTEXT_FIX(安全分>=80,0.23,0.60,1,扫雷宝),COLOR5DAF15;
DRAWTEXT_FIX(安全分<80 AND 安全分>60,0.23,0.60,1,扫雷宝),COLORYELLOW;
DRAWTEXT_FIX(安全分<=60,0.23,0.60,1,扫雷宝),COLORRED;
净资产:=FINONE(72,2023,1231)/100000000;
DRAWTEXT_FIX(1,0.2,0.0,1,' 净资产：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.25,0.0,1,净资产),COLORWHITE;
净利润:=FINONE(95,2023,1231)/100000000;
DRAWTEXT_FIX(1,0.35,0.0,1,' 净利润：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.4,0.0,1,净利润),COLORWHITE;
总市值:=FINANCE(39)/100000000;
DRAWTEXT_FIX(1,0.2,0.15,1,' 总市值：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.25,0.15,1,总市值),COLORWHITE;
营业收入:=FINONE(74,2023,1231)/100000000;
DRAWTEXT_FIX(1,0.2,0.30,1,'营业收入：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.25,0.30,1,营业收入),COLORWHITE;
扣非净利润:=FINONE(206,2023,1231)/100000000;
DRAWTEXT_FIX(1,0.35,0.3,1,'扣非净利润：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.4,0.3,1,扣非净利润),COLORWHITE;
利润总额:=FINONE(92,2023,1231)/100000000;
DRAWTEXT_FIX(1,0.35,0.15,1,'利润总额：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.4,0.15,1,利润总额),COLORWHITE;
未分配利润:=FINONE(68,2023,1231)/100000000;
DRAWTEXT_FIX(1,0.35,0.45,1,'未分配利润：'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.4,0.45,1,未分配利润),COLORWHITE;
DRAWTEXT_FIX(1,0.42,0.0,0,' 温馨提示：要下载专业财务数据，要设置1、（参数M最小0最大2缺省1），2、（参数NF最小1最大20缺省2）'),COLORGRAY;
DRAWTEXT_FIX(1,0.42,0.15,0,'市值不合格：主板<5亿，创业板<3亿（连续20个交易日）'),COLORGRAY;
DRAWTEXT_FIX(1,0.42,0.30,0,'营收不合格：主板<3亿，创业板<1亿（利润总额、净利润、扣非净利润为负）或者（期末净资产为负）'),COLORGRAY;
DRAWTEXT_FIX(1,0.42,0.45,0,'分红不合格：主板<5000万，创业板<3000万（近三年累计分红<年均净利润30%）（净利润、未分配利润为正）'),COLORGRAY;
DRAWTEXT_FIX(1,0.42,0.60,0,' 豁免条件：（回购注销金额）（近三年累计研发投入金额>3亿，占累计营业收入>15%)'),COLORGRAY;
{------------------使用本公式请先下载专业财务数据--------------}
ZB:=CODELIKE('60');
ZB2:=CODELIKE('00');
CYB:=CODELIKE('30');
KCB:=CODELIKE('68');
YYMMDD:=FINVALUE(0);
YY:=INTPART(YYMMDD/10000);
YYYY:=YY+2000;
MMDD:=YYMMDD-YY*10000;
YYYYMMDD:=YYMMDD+20000000;
YY0:=IF(MMDD=1231,YY,YY-1);
BGQ:=FINVALUE(0)+20000000;
ZJNF:=IF(MMDD=1231,YYYY,YYYY-1);
YEAR_A:=YEAR;
YEAR0:=IF(MMDD<=1231,YYYY,YYYY-1);
YEAR1:=YEAR0-1;
YEAR2:=YEAR0-2;
YEAR3:=YEAR0-3;
YEAR4:=YEAR0-4;
YEAR5:=YEAR0-5;
YEAR6:=YEAR0-6;
YEAR7:=YEAR0-7;
YEAR8:=YEAR0-8;
YEAR9:=YEAR0-9;
YEAR10:=YEAR0-10;
DQ1YYMMDD:=MACHINEDATE;{1240423}
DQ1YY:=INTPART(DQ1YYMMDD/10000);{124}
DQYY:=INTPART(DQ1YY-100);
DQYYYY:=INTPART((DQ1YYMMDD+19000000)/10000);{2024}
N:=IF(M=1,DQYYYY-1,DQYYYY);
D1CN:=N;
D2CN:=N-1;
D3CN:=N-2;
ZBSZ:=FINANCE(41)/100000000;
SCSZ:=FINANCE(41)/100000000;
ZBSZ1:=REF(C,0)<500000000/FINANCE(1) AND REF(C,1)<500000000/FINANCE(1) AND REF(C,2)<500000000/FINANCE(1)
AND REF(C,3)<500000000/FINANCE(1) AND REF(C,4)<500000000/FINANCE(1) AND REF(C,5)<500000000/FINANCE(1)
AND REF(C,6)<500000000/FINANCE(1) AND REF(C,7)<500000000/FINANCE(1) AND REF(C,8)<500000000/FINANCE(1)
AND REF(C,9)<500000000/FINANCE(1) AND REF(C,10)<500000000/FINANCE(1) AND REF(C,11)<500000000/FINANCE(1)
AND REF(C,12)<500000000/FINANCE(1) AND REF(C,13)<500000000/FINANCE(1) AND REF(C,14)<500000000/FINANCE(1)
AND REF(C,15)<500000000/FINANCE(1) AND REF(C,16)<500000000/FINANCE(1) AND REF(C,17)<500000000/FINANCE(1)
AND REF(C,18)<500000000/FINANCE(1) AND REF(C,19)<500000000/FINANCE(1) ;
SCSZ1:=REF(C,0)<300000000/FINANCE(1) AND REF(C,1)<300000000/FINANCE(1) AND REF(C,2)<300000000/FINANCE(1)
AND REF(C,3)<300000000/FINANCE(1) AND REF(C,4)<300000000/FINANCE(1) AND REF(C,5)<300000000/FINANCE(1)
AND REF(C,6)<300000000/FINANCE(1) AND REF(C,7)<300000000/FINANCE(1) AND REF(C,8)<300000000/FINANCE(1)
AND REF(C,9)<300000000/FINANCE(1) AND REF(C,10)<300000000/FINANCE(1) AND REF(C,11)<300000000/FINANCE(1)
AND REF(C,12)<300000000/FINANCE(1) AND REF(C,13)<300000000/FINANCE(1) AND REF(C,14)<300000000/FINANCE(1)
AND REF(C,15)<300000000/FINANCE(1) AND REF(C,16)<300000000/FINANCE(1) AND REF(C,17)<300000000/FINANCE(1)
AND REF(C,18)<300000000/FINANCE(1) AND REF(C,19)<300000000/FINANCE(1) ;
KHSZ:=IF(ZB OR ZB2,ZBSZ1,IF(CYB OR KCB,SCSZ1,DRAWNULL));
MDYS1:=IF(YYYY<DQYYYY AND MMDD<1231,MMDD,1231);
MDYS11:=IF(YYYY=DQYYYY AND MMDD<1231,MMDD,1231);
ZJYS1:=FINONE(74,D1CN,MDYS1)*0.00000001;
ZJYS2:=FINONE(74,D2CN,1231)*0.00000001;
ZJYS3:=FINONE(74,D3CN,1231)*0.00000001;
ZJYSZE1:=ZJYS1+ZJYS2+ZJYS3;
ZJYS11:=FINONE(74,D1CN,MDYS11)*0.00000001;
ZJYS22:=FINONE(74,D2CN,1231)*0.00000001;
ZJYS33:=FINONE(74,D3CN,1231)*0.00000001;
ZJYSZE11:=ZJYS11+ZJYS22+ZJYS33;
YSDX:=IF(ZB OR ZB2,3,IF(CYB OR KCB,1,DRAWNULL));
KHYS1:=ZJYS1<YSDX;
KHYS11:=ZJYS11<YSDX;
KHYSZB:=IF(M=1,ZJYS1<3,ZJYS11<3);
KHYSSC:=IF(M=1,ZJYS1<1,ZJYS11<1);
ZJLRZE1:=FINONE(92,D1CN,MDYS1)*0.00000001;
ZJJLR1:=FINONE(96,D1CN,MDYS1)*0.00000001;
ZJJLR2:=FINONE(96,D2CN,1231)*0.00000001;
ZJJLR3:=FINONE(96,D3CN,1231)*0.00000001;
ZJJLRZE:=ZJJLR1+ZJJLR2+ZJJLR3;
ZJKFJLR1:=FINONE(206,D1CN,MDYS1)*0.00000001;
ZJLRZE11:=FINONE(92,D1CN,MDYS11)*0.00000001;
ZJJLR11:=FINONE(96,D1CN,MDYS11)*0.00000001;
ZJJLR22:=FINONE(96,D2CN,1231)*0.00000001;
ZJJLR33:=FINONE(96,D3CN,1231)*0.00000001;
ZJKFJLR11:=FINONE(206,D1CN,MDYS11)*0.00000001;
KUISUN1:=IF(ZJLRZE1<0 OR ZJJLR1<0 OR ZJKFJLR1<0,1,0);
KUISUN11:=IF(ZJLRZE11<0 OR ZJJLR11<0 OR ZJKFJLR11<0,1,0);
KUISUN:=IF(M=1,KUISUN1,KUISUN11);
ZJJZC1:=FINONE(72,D1CN,MDYS1)*0.00000001;
ZJJZC11:=FINONE(72,D1CN,MDYS11)*0.00000001;
KHJZC1:=ZJJZC1<0;
KHJZC11:=ZJJZC11<0;
KHJZC:=IF(M=1,KHJZC1,KHJZC11);
ZJYFF1:=FINONE(304,D1CN,MDYS1)*0.00000001;
ZJYFF2:=FINONE(304,D2CN,1231)*0.00000001;
ZJYFF3:=FINONE(304,D3CN,1231)*0.00000001;
ZJYFFZE1:=ZJYFF1+ZJYFF2+ZJYFF3;
ZJYFF11:=FINONE(304,D1CN,MDYS11)*0.00000001;
ZJYFF22:=FINONE(304,D2CN,1231)*0.00000001;
ZJYFF33:=FINONE(304,D3CN,1231)*0.00000001;
ZJYFFZE11:=ZJYFF11+ZJYFF22+ZJYFF33;
FHTIME:=DQYY*10000+1000101;
FHTIME1:=DATETODAY(MACHINEDATE)-DATETODAY(FHTIME)+1;
FHTIME2:=DATETODAY(MACHINEDATE)-DATETODAY(FHTIME-10000)+1;
FHTIME3:=DATETODAY(MACHINEDATE)-DATETODAY(FHTIME-20000)+1;
FHTIME4:=DATETODAY(MACHINEDATE)-DATETODAY(FHTIME+800-30000)+1;
FHFWZQ1:=BARSSINCE(DATE+19000000>=((DQYYYY-3)*10000+901))+1;
FHCISHU1:=COUNT(SPLITBARS(0,1)=0,FHFWZQ1) ;
FHTIME11:=DATETODAY(MACHINEDATE)-DATETODAY(FHTIME)+1;
FHTIME22:=DATETODAY(MACHINEDATE)-DATETODAY(FHTIME-10000)+1;
FHFWZQ11:=BARSSINCE(DATE+19000000>=((DQYYYY-2)*10000+901))+1;
FHCISHU11:=COUNT(SPLITBARS(0,1)=0,FHFWZQ11) ;
ZJFH1:=SPLIT(0,1);
ZJFH2:=SPLIT(1,1);
ZJFH3:=SPLIT(2,1);
ZJFH4:=SPLIT(3,1);
ZJFH5:=SPLIT(4,1);
ZJFH6:=SPLIT(5,1);
ZJFH7:=SPLIT(6,1);
ZJFH8:=SPLIT(7,1);
ZJFH9:=SPLIT(8,1);
ZJFHTS1:=SPLITBARS(0,1);
ZJFHTS2:=BARSLASTS(SPLITBARS(0,1)=0,2);
ZJFHTS3:=BARSLASTS(SPLITBARS(0,1)=0,3);
ZJFHTS4:=BARSLASTS(SPLITBARS(0,1)=0,4);
ZJFHTS5:=BARSLASTS(SPLITBARS(0,1)=0,5);
ZJFHTS6:=BARSLASTS(SPLITBARS(0,1)=0,6);
ZJFHTS7:=BARSLASTS(SPLITBARS(0,1)=0,7);
ZJFHTS8:=BARSLASTS(SPLITBARS(0,1)=0,8);
ZJFHTS9:=BARSLASTS(SPLITBARS(0,1)=0,9);
ZJFSZG1:=REF(SPLITBARS(0,0)=0,ZJFHTS1);
ZJFSZG2:=REF(SPLITBARS(0,0)=0,ZJFHTS2);
ZJFSZG3:=REF(SPLITBARS(0,0)=0,ZJFHTS3);
YYYYMMDD1:=REF(DATE+19000000,ZJFHTS1);
YYYYMMDD2:=REF(DATE+19000000,ZJFHTS2);
YYYYMMDD3:=REF(DATE+19000000,ZJFHTS3);
YYYYMMDD4:=REF(DATE+19000000,ZJFHTS4);
YYYYMMDD5:=REF(DATE+19000000,ZJFHTS5);
YYYYMMDD6:=REF(DATE+19000000,ZJFHTS6);
YYYYMMDD7:=REF(DATE+19000000,ZJFHTS7);
YYYYMMDD8:=REF(DATE+19000000,ZJFHTS8);
YYYYMMDD9:=REF(DATE+19000000,ZJFHTS9);
YYYY1:=INTPART(YYYYMMDD1/10000);
YYYY2:=INTPART(YYYYMMDD2/10000);
YYYY3:=INTPART(YYYYMMDD3/10000);
YYYY4:=INTPART(YYYYMMDD4/10000);
YYYY5:=INTPART(YYYYMMDD5/10000);
YYYY6:=INTPART(YYYYMMDD6/10000);
YYYY7:=INTPART(YYYYMMDD7/10000);
YYYY8:=INTPART(YYYYMMDD8/10000);
YYYY9:=INTPART(YYYYMMDD9/10000);
YYYYCN1:=YYYY1-1;
YYYYCN2:=YYYY2-1;
YYYYCN3:=YYYY3-1;
YYYYCN4:=YYYY4-1;
YYYYCN5:=YYYY5-1;
YYYYCN6:=YYYY6-1;
YYYYCN7:=YYYY7-1;
YYYYCN8:=YYYY8-1;
YYYYCN9:=YYYY9-1;
YY1:=INTPART(YYYY1-2000);
YY2:=INTPART(YYYY2-2000);
YY3:=INTPART(YYYY3-2000);
YY4:=INTPART(YYYY4-2000);
YY5:=INTPART(YYYY5-2000);
YY6:=INTPART(YYYY6-2000);
YY7:=INTPART(YYYY7-2000);
YY8:=INTPART(YYYY8-2000);
YY9:=INTPART(YYYY9-2000);
MMDD1:=YYYYMMDD1-YYYY1*10000;
MMDD2:=YYYYMMDD2-YYYY2*10000;
MMDD3:=YYYYMMDD3-YYYY3*10000;
MMDD4:=YYYYMMDD4-YYYY4*10000;
MMDD5:=YYYYMMDD5-YYYY5*10000;
MMDD6:=YYYYMMDD6-YYYY6*10000;
MMDD7:=YYYYMMDD7-YYYY7*10000;
MMDD8:=YYYYMMDD8-YYYY8*10000;
MMDD9:=YYYYMMDD9-YYYY9*10000;
GBMMDD1:=IF(MMDD1<=401,930,IF(401<MMDD1 AND MMDD1<901,1231,IF(901<=MMDD1 AND MMDD1<=1231,630,630)));
GBYYYY1:=IF(MMDD1<=401,YYYY1-1,IF(401<MMDD1 AND MMDD1<901,YYYY1-1,IF(901<=MMDD1 AND MMDD1<=1231,YYYY1,YYYY1)));
ZJGB1:=FINONE(238,GBYYYY1,GBMMDD1);
GBMMDD2:=IF(101<= MMDD2 AND MMDD2<=401,930,IF(401<MMDD2 AND MMDD2<901,1231,IF(901<=MMDD2 AND MMDD2<=1231,630,630)));
GBYYYY2:=IF(101<=MMDD2 AND MMDD2<=401,YYYY2-1,IF(401<MMDD2 AND MMDD2<901,YYYY1-1,IF(901<=MMDD2 AND MMDD2<=1231,YYYY2,YYYY2)));
ZJGB2:=FINONE(238,GBYYYY2,GBMMDD2);
GBMMDD3:=IF(101<=MMDD3 AND MMDD3<=401,930,IF(401<MMDD3 AND MMDD3<901,1231,IF(901<=MMDD3 AND MMDD3<=1231,630,630)));
GBYYYY3:=IF(101<=MMDD3 AND MMDD3<=401,YYYY3-1,IF(401<MMDD3 AND MMDD3<901,YYYY3-1,IF(901<=MMDD3 AND MMDD3<=1231,YYYY3,YYYY3)));
ZJGB3:=FINONE(238,GBYYYY3,GBMMDD3);
GBMMDD4:=IF(101<=MMDD4 AND MMDD4<=401,930,IF(401<MMDD4 AND MMDD4<901,1231,IF(901<=MMDD4 AND MMDD4<=1231,630,630)));
GBYYYY4:=IF(101<=MMDD4 AND MMDD4<=401,YYYY4-1,IF(401<MMDD4 AND MMDD4<901,YYYY4-1,IF(901<=MMDD4 AND MMDD4<=1231,YYYY4,YYYY4)));
ZJGB4:=FINONE(238,GBYYYY4,GBMMDD4);
GBMMDD5:=IF(101<=MMDD5 AND MMDD5<=401,930,IF(401<MMDD5 AND MMDD5<901,1231,IF(901<=MMDD5 AND MMDD5<=1231,630,630)));
GBYYYY5:=IF(101<=MMDD5 AND MMDD5<=401,YYYY5-1,IF(401<MMDD5 AND MMDD5<901,YYYY5-1,IF(901<=MMDD5 AND MMDD5<=1231,YYYY5,YYYY5)));
ZJGB5:=FINONE(238,GBYYYY5,GBMMDD5);
GBMMDD6:=IF(101<=MMDD6 AND MMDD6<=401,930,IF(401<MMDD6 AND MMDD6<901,1231,IF(901<=MMDD6 AND MMDD6<=1231,630,630)));
GBYYYY6:=IF(101<=MMDD6 AND MMDD6<=401,YYYY6-1,IF(401<MMDD6 AND MMDD6<901,YYYY6-1,IF(901<=MMDD6 AND MMDD6<=1231,YYYY6,YYYY6)));
ZJGB6:=FINONE(238,GBYYYY6,GBMMDD6);
GBMMDD7:=IF(101<=MMDD7 AND MMDD7<=401,930,IF(401<MMDD7 AND MMDD7<901,1231,IF(901<=MMDD7 AND MMDD7<=1231,630,630)));
GBYYYY7:=IF(101<=MMDD7 AND MMDD7<=401,YYYY7-1,IF(401<MMDD7 AND MMDD7<901,YYYY7-1,IF(901<=MMDD7 AND MMDD7<=1231,YYYY7,YYYY7)));
ZJGB7:=FINONE(238,GBYYYY7,GBMMDD7);
GBMMDD8:=IF(101<=MMDD8 AND MMDD8<=401,930,IF(401<MMDD8 AND MMDD8<901,1231,IF(901<=MMDD8 AND MMDD8<=1231,630,630)));
GBYYYY8:=IF(101<=MMDD8 AND MMDD8<=401,YYYY8-1,IF(401<MMDD8 AND MMDD8<901,YYYY8-1,IF(901<=MMDD8 AND MMDD8<=1231,YYYY8,YYYY8)));
ZJGB8:=FINONE(238,GBYYYY8,GBMMDD8);
GBMMDD9:=IF(101<=MMDD9 AND MMDD9<=401,930,IF(401<MMDD9 AND MMDD9<901,1231,IF(901<=MMDD9 AND MMDD9<=1231,630,630)));
GBYYYY9:=IF(101<=MMDD9 AND MMDD9<=401,YYYY9-1,IF(401<MMDD9 AND MMDD9<901,YYYY9-1,IF(901<=MMDD9 AND MMDD9<=1231,YYYY9,YYYY9)));
ZJGB9:=FINONE(238,GBYYYY9,GBMMDD9);
CISHU1:=ZJGB1*ZJFH1*0.00000001;
CISHU2:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001;
CISHU3:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001;
CISHU4:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001+ZJGB4*ZJFH4*0.00000001;
CISHU5:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001+ZJGB4*ZJFH4*0.00000001+ZJGB5*ZJFH5*0.00000001;
CISHU6:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001+ZJGB4*ZJFH4*0.00000001+ZJGB5*ZJFH5*0.00000001+ZJGB6*ZJFH6*0.00000001;
CISHU7:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001+ZJGB4*ZJFH4*0.00000001+ZJGB5*ZJFH5*0.00000001+ZJGB6*ZJFH6*0.00000001+ZJGB7*ZJFH7*0.00000001;
CISHU8:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001+ZJGB4*ZJFH4*0.00000001+ZJGB5*ZJFH5*0.00000001+ZJGB6*ZJFH6*0.00000001+ZJGB7*ZJFH7*0.00000001+ZJGB8*ZJFH8*0.00000001;
CISHU9:=ZJGB1*ZJFH1*0.00000001+ZJGB2*ZJFH2*0.00000001+ZJGB3*ZJFH3*0.00000001+ZJGB4*ZJFH4*0.00000001+ZJGB5*ZJFH5*0.00000001+ZJGB6*ZJFH6*0.00000001+ZJGB7*ZJFH7*0.00000001+ZJGB8*ZJFH8*0.00000001+ZJGB9*ZJFH9*0.00000001;
FHZE1:=IF(FHCISHU1=1,CISHU1,IF(FHCISHU1=2,CISHU2,IF(FHCISHU1=3,CISHU3,IF(FHCISHU1=4,CISHU4,IF(FHCISHU1=5,CISHU5,IF(FHCISHU1=6,CISHU6,IF(FHCISHU1=7,CISHU7,IF(FHCISHU1=8,CISHU8,IF(FHCISHU1=9,CISHU9,0)))))))));
FHZE11:=IF(FHCISHU1=1,CISHU1,IF(FHCISHU11=2,CISHU2,IF(FHCISHU11=3,CISHU3,IF(FHCISHU11=4,CISHU4,IF(FHCISHU11=5,CISHU5,IF(FHCISHU11=6,CISHU6,IF(FHCISHU11=7,CISHU7,IF(FHCISHU11=8,CISHU8,IF(FHCISHU11=9,CISHU9,0)))))))));
SHANGSHI:=DATETODAY(DQ1YYMMDD)-FINANCE(42);
SHANGSHIRI:=DAYTODATE(SHANGSHI)+1+19000000;
GGBYYYY:=IF(YYYYCN1<CON2STR(SHANGSHIRI/10000,0),0,YYYYCN1);
GGBMMDD:=IF(YYYYCN1<CON2STR(SHANGSHIRI/10000,0),0,1231);
GB1:=FINONE(238,GGBYYYY,GGBMMDD);
GB2:=FINONE(238,YYYYCN2,1231);
GB3:=FINONE(238,YYYYCN3,1231);
ZJWYIJLR1:=FINONE(68,D1CN,MDYS1)*0.00000001;
ZJWYIJLR2:=FINONE(68,D2CN,MDYS1)*0.00000001;
ZJWYIJLR3:=FINONE(68,D3CN,MDYS1)*0.00000001;
ZJJLRZE1:=(ZJJLR1+ZJJLR2+ZJJLR3)/3;
ZJWYIJLR11:=FINONE(68,D1CN,MDYS11)*0.00000001;
ZJWYIJLR22:=FINONE(68,D2CN,MDYS11)*0.00000001;
ZJWYIJLR33:=FINONE(68,D3CN,MDYS11)*0.00000001;
ZJJLRZE11:=(ZJJLR11+ZJJLR22+ZJJLR33)/3;
KHWFP:=IF(M=1,ZJWYIJLR1,ZJWYIJLR11) ;
KHZJJLZ:=IF(M=1,ZJJLR1,ZJJLR11) ;
KHFHZE:=IF(M=1,FHZE1/ZJJLRZE1,FHZE11/ZJJLRZE11) ;
KHFHDX:=IF(M=1, FHZE1,FHZE11 ) ;
KHYFFDX:=IF(M=1,ZJYFFZE1,ZJYFFZE11 ) ;
KHYFFBL:=IF(M=1,ZJYFFZE1/ZJYSZE1,ZJYFFZE11/ZJYSZE11) ;
JNGLTS:=DATETODAY(DATE)-DATETODAY((YEAR-1900)*10000+101)+1;
GLNF:= ( FINANCE(42)-JNGLTS) >NF*365;
SZBIK:=IF(ZB OR ZB2,ZBSZ1,IF(CYB OR KCB,SCSZ1,DRAWNULL));
YJZBBK:= (KUISUN=1 AND KHYSZB=1) OR KHJZC=1 ;
YJSCBK:=(KUISUN=1 AND KHYSSC=1 )OR KHJZC=1 ;
YJBIK:=IF(ZB OR ZB2,YJZBBK,IF(CYB OR KCB,YJSCBK,DRAWNULL));
FHZBBK:= GLNF=1 AND KHWFP>0 AND KHZJJLZ>0 AND KHFHZE<0.3 AND KHFHDX<0.5 ;
FHSCBK:= GLNF=1 AND KHWFP>0 AND KHZJJLZ>0 AND KHFHZE<0.3 AND KHFHDX<0.3 AND KHYFFDX<3 AND KHYFFBL<0.15 ;
FHBIK:=IF(ZB OR ZB2,FHZBBK,IF( CYB OR KCB,FHSCBK,DRAWNULL));
SSTINME:=(FINANCE(42)-JNGLTS)/365>=NF;
DRAWTEXT_FIX(C>1,0.08,0.01,1,STRCAT('【利润考核】：',IF(KUISUN=1,'',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.1,0.01,1,STRCAT('',IF(KUISUN=1,'亏损',''))),COLORRED;
DRAWTEXT_FIX(C>1,0.1,0.01,1,STRCAT('',IF(KUISUN=0,'合格',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.08,0.15,1,STRCAT('【市值考核】：',IF(SZBIK=1,'',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.1,0.15,1,STRCAT('',IF(SZBIK=1,'不合格',''))),COLORRED;
DRAWTEXT_FIX(C>1,0.1,0.15,1,STRCAT('',IF(SZBIK=0,'合格',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.08,0.30,1,STRCAT('【营收考核】：',IF(YJBIK=1,'',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.11,0.30,1,STRCAT('',IF(YJBIK=1,'不合格',''))),COLORRED;
DRAWTEXT_FIX(C>1,0.1,0.30,1,STRCAT('',IF(YJBIK=0,'合格',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.08,0.45,1,STRCAT('【分红考核】：',IF(FHBIK=1,'',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.11,0.45,1,STRCAT('',IF(FHBIK=1,'不合格',''))),COLORRED;
DRAWTEXT_FIX(C>1,0.11,0.45,1,STRCAT('',IF(FHBIK=0 AND SSTINME=0,'不考核',''))),COLORCYAN;
DRAWTEXT_FIX(C>1,0.11,0.45,1,STRCAT('',IF(FHBIK=0 AND SSTINME=1 AND KHZJJLZ<0 AND KHWFP>0,'不考核',''))),COLORLIRED;
DRAWTEXT_FIX(C>1,0.11,0.45,1,STRCAT('',IF(FHBIK=0 AND SSTINME=1 AND KHZJJLZ>0 AND KHWFP<0,'不考核',''))),COLORLIRED;
DRAWTEXT_FIX(C>1,0.11,0.45,1,STRCAT('',IF(FHBIK=0 AND SSTINME=1 AND KHZJJLZ<0 AND KHWFP<0,'不考核',''))),COLORLIRED;
DRAWTEXT_FIX(C>1,0.1,0.45,1,STRCAT('',IF(FHBIK=0 AND SSTINME=1 AND KHZJJLZ>0 AND KHWFP>0,'合格',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.08,0.60,1,STRCAT('【年份考核】：',IF(SSTINME=1,'',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.1,0.60,1,STRCAT('',IF(SSTINME=1,'合格',''))),COLORGRAY;
DRAWTEXT_FIX(C>1,0.11,0.60,1,STRCAT('',STRCAT(STRCAT(IF(SSTINME=0,'未满',''),IF(SSTINME=0,CON2STR(NF,0),'')),IF(SSTINME=0,'年','')))),COLORCYAN;
