通达信《退市风险警示》指标公式源码

通达信《退市风险警示》指标公式源码，包括财报年报、最新财报，不分红考核、业绩营收考核、市值考核五个指标。

一、最财报是年报源码：

{最近一期财报的年份和日期}
YYMMDD:=FINVALUE(0);{数据编号如下:0--返回报告期(YYMMDD格式),150930表示为2015年第三季}
YY:=INTPART(YYMMDD/10000); {取整，取得YY年份如 24}
YYYY:=YY+2000; {年份 如 2024}
MMDD:=YYMMDD-YY*10000; {月日 如 1231}
YYYYMMDD:=YYMMDD+20000000; {年月日 如 20241231}

YY0:=IF(MMDD=1231,YY,YY-1); {若当前报告期MMDD＝1231，用此YY，否则用YY-1，即上一年的年报数据}
BGQ:=FINVALUE(0)+20000000;{返回报告期(YYMMDD格式),150930表示为2015年第三季}
{------------}
{最近一期年报的年份}{WWW.ZHIBIAO123.CN}
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; {M=1时为筛选模式 该值为N=2023年} {M=2时为预选模式 该值为N=2024年}
D2CN:=N-1; {M=1时为筛选模式 该值为N-1=2022年} {M=2时为预选模式 该值为N-1=2023年}
D3CN:=N-2; {M=1时为筛选模式 该值为N-2=2021年} {M=2时为预选模式 该值为N-2=2022年}
{------- 分析家公式网HTTP://WWW.70822.COM -----}


XUANCHU:YYYY>D1CN OR (YYYY=D1CN AND MMDD=1231);

二、最财报非年报源码：

{最近一期财报的年份和日期}
YYMMDD:=FINVALUE(0);{数据编号如下:
0--返回报告期(YYMMDD格式),150930表示为2015年第三季}
YY:=INTPART(YYMMDD/10000); {取整，取得YY年份如 24}
YYYY:=YY+2000; {年份 如 2024}
MMDD:=YYMMDD-YY*10000; {月日 如 1231}
YYYYMMDD:=YYMMDD+20000000; {年月日 如 20241231}

YY0:=IF(MMDD=1231,YY,YY-1); {若当前报告期MMDD＝1231，用此YY，否则用YY-1，即上一年的年报数据}
BGQ:=FINVALUE(0)+20000000;{返回报告期(YYMMDD格式),150930表示为2015年第三季}
{------------}
{最近一期年报的年份}{WWW.ZHIBIAO123.CN}
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; {M=1时为筛选模式 该值为N=2023年} {M=2时为预选模式 该值为N=2024年}
D2CN:=N-1; {M=1时为筛选模式 该值为N-1=2022年} {M=2时为预选模式 该值为N-1=2023年}
D3CN:=N-2; {M=1时为筛选模式 该值为N-2=2021年} {M=2时为预选模式 该值为N-2=2022年}
{------- 分析家公式网HTTP://WWW.70822.COM -----}
XUANCHU:=YYYY>D1CN OR YYYY=D1CN AND MMDD=1231;
NOXUANCHU:YYYY=D1CN AND MMDD<1231;

三、不分红考核源码

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; 
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;
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:=ZJYS1<0;
KHJZC11:=ZJYS11<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,YYYY,YYYY)));
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) ;{WWW.ZHIBIAO123.CN}
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;
ZBBK:= GLNF=1 AND KHWFP>0 AND KHZJJLZ>0 AND KHFHZE<0.3 AND KHFHDX<0.5 ;
SCBK:= GLNF=1 AND KHWFP>0 AND KHZJJLZ>0 AND KHFHZE<0.3 AND KHFHDX<0.3 AND KHYFFDX<3 AND KHYFFBL<0.15 ;
避坑:IF(ZB OR ZB2,ZBBK,IF( CYB OR KCB,SCBK,DRAWNULL));

四、业绩营收考核源码：

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;
DQ1YY:=INTPART(DQ1YYMMDD/10000);
DQYY:=INTPART(DQ1YY-100);{WWW.ZHIBIAO123.CN}
DQYYYY:=INTPART((DQ1YYMMDD+19000000)/10000);
N:=IF(M=1,DQYYYY-1,DQYYYY);
D1CN:=N; 
D2CN:=N-1; 
D3CN:=N-2; 
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);{------- 分析家公式网HTTP://WWW.70822.COM -----}
ZJJZC1:=FINONE(72,D1CN,MDYS1)*0.00000001-FINONE(69,D1CN,MDYS1)*0.00000001; 
ZJJZC11:=FINONE(72,D1CN,MDYS11)*0.00000001-FINONE(72,D1CN,MDYS11)*0.00000001; 
KHJZC1:=ZJJZC1<0;
KHJZC11:=ZJJZC11<0;
KHJZC:=IF(M=1,KHJZC1,KHJZC11);
SSTS:=FINANCE(42); 
JNGLTS:=DATETODAY(DQ1YYMMDD)-DATETODAY(DQYY*10000+101)+1;
GLNF:=SSTS>N*365+JNGLTS;
ZBBK:= (KUISUN=1 AND KHYSZB=1) OR KHJZC=1;
SCBK:=(KUISUN=1 AND KHYSSC=1 )OR KHJZC=1;
避坑:IF(ZB OR ZB2,ZBBK,IF(CYB OR KCB,SCBK,DRAWNULL));

五、市值考核源码：

ZB:=CODELIKE('60');
ZB2:=CODELIKE('00');
CYB:=CODELIKE('30');
KCB:=CODELIKE('68');
ZBSZ:=FINANCE(41)/100000000;
SCSZ:=FINANCE(41)/100000000;
{WWW.ZHIBIAO123.CN}
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) ;
避坑:IF(ZB OR ZB2,ZBSZ1,IF(CYB OR KCB,SCSZ1,DRAWNULL));