通达信【国9考核】副图指标 精品避雷首选 源码附图

原理解析：
{年份、报告期取值}
YYMMDD赋值:FINVALUE(0)
{报告期0331,0630,0930,1231,假设:240331}
YY:=INTPART(YYMMDD/10000)
{24}
YYYY赋值:YY+2000
{2024}
MMDD赋值:YYMMDD-YY*10000
如果MMDD=1231返回YYYY否则返回YYYY-1
{年份取值,如果=年报,是2024,否2023}

{财务数据变色}
净资产赋值:FINONE(72,NF,1231)/100000000
净资产变色赋值:STRCAT(STRCAT('',VAR2STR(净资产,2)),' 亿')
当满足条件1时,在横轴0.18纵轴0.0位置书写文字
当满足条件净资产>0时,在横轴0.23纵轴0.0位置书写文字
当满足条件净资产<0时,在横轴0.23纵轴0.0位置书写文字

总市值赋值:FINANCE(41)/100000000
{AB股总市值}
总市值变色:=STRCAT(STRCAT('',VAR2STR(总市值,2)),' 亿')
当满足条件1时,在横轴0.18纵轴0.15位置书写文字
DRAWTEXT_FIX(FINANCE(3)=1 AND 总市值>5,0.23,0.15,1,总市值变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=1 AND 总市值<5,0.23,0.15,1,总市值变色),画青色
DRAWTEXT_FIX(FINANCE(3)=3 AND 总市值>3,0.23,0.15,1,总市值变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=3 AND 总市值<3,0.23,0.15,1,总市值变色),画青色

营业收入赋值:FINONE(74,NF,1231)/100000000
{2023营业收入}
YYSN2:=FINONE(74,NF-1,1231)/100000000
{2022营业收入}
YYSN3:=FINONE(74,NF-2,1231)/100000000
{2021营业收入}
YYSNSUM:=(营业收入+YYSN2+YYSN3)
{3年营业收入合计}
YYSNKH:=YYSNSUM*0.15
{3年营业收入15%}
营业收入变色:=STRCAT(STRCAT('',VAR2STR(营业收入,2)),' 亿')
当满足条件1时,在横轴0.18纵轴0.30位置书写文字
DRAWTEXT_FIX(FINANCE(3)=1 AND 营业收入>3,0.23,0.30,1,营业收入变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=1 AND 营业收入<3,0.23,0.30,1,营业收入变色),COLORLIGREEN
DRAWTEXT_FIX(FINANCE(3)=3 AND 营业收入>1,0.23,0.30,1,营业收入变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=3 AND 营业收入<1,0.23,0.30,1,营业收入变色),COLORLIGREEN

利润总额赋值:FINONE(92,NF,1231)/100000000
利润总额变色:=STRCAT(STRCAT('',VAR2STR(利润总额,2)),' 亿')
当满足条件1时,在横轴0.35纵轴0.0位置书写文字
当满足条件利润总额>0时,在横轴0.4纵轴0.0位置书写文字
当满足条件利润总额<0时,在横轴0.4纵轴0.0位置书写文字

归母净利润赋值:FINONE(96,NF,1231)/100000000
{2023归母净利润}
GMJLR2:=FINONE(96,NF-1,1231)/100000000
{2022归母净利润}
GMJLR3:=FINONE(96,NF-2,1231)/100000000
{2021归母净利润}
GMJLRSUM:=归母净利润+GMJLR2+GMJLR3
{3年归母净利润合计}
GMJLRKH:=GMJLRSUM/3*0.3
{年均归母净利润30%}
归母净利润变色:=STRCAT(STRCAT('',VAR2STR(归母净利润,2)),' 亿')
当满足条件1时,在横轴0.35纵轴0.3位置书写文字
当满足条件归母净利润>0时,在横轴0.4纵轴0.3位置书写文字
当满足条件归母净利润<0时,在横轴0.4纵轴0.3位置书写文字

扣非净利润赋值:FINONE(206,NF,1231)/100000000
扣非净利润变色:=STRCAT(STRCAT('',VAR2STR(扣非净利润,2)),' 亿')
当满足条件1时,在横轴0.35纵轴0.15位置书写文字
当满足条件扣非净利润>0时,在横轴0.4纵轴0.15位置书写文字
当满足条件扣非净利润<0时,在横轴0.4纵轴0.15位置书写文字

未分配利润赋值:FINONE(68,NF,1231)/100000000
未分配利润变色:=STRCAT(STRCAT('',VAR2STR(未分配利润,2)),' 亿')
当满足条件1时,在横轴0.35纵轴0.45位置书写文字
当满足条件未分配利润>0时,在横轴0.4纵轴0.45位置书写文字
当满足条件未分配利润<0时,在横轴0.4纵轴0.45位置书写文字

研发费用赋值:FINONE(304,NF,1231)/100000000
{2023研发费用}
YFFY2:=FINONE(304,NF-1,1231)/100000000
{2022研发费用}
YFFY3:=FINONE(304,NF-2,1231)/100000000
{2021研发费用}
YFFYSUM:=研发费用+YFFY2+YFFY3
{3年研发费用合计}
研发费用变色:=STRCAT(STRCAT('',VAR2STR(YFFYSUM,2)),' 亿')
当满足条件1时,在横轴0.18纵轴0.6位置书写文字
DRAWTEXT_FIX(FINANCE(3)=1 AND YFFYSUM>=0,0.23,0.6,1,研发费用变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=3 AND YFFYSUM>3,0.23,0.6,1,研发费用变色),COLORGRAY

DRAWTEXT_FIX(FINANCE(3)=3 AND YFFYSUM<3,0.23,0.6,1,研发费用变色),画白色

研发占比赋值:YFFYSUM/YYSNSUM*100
{创业板近三年累计研发占累计营业收入>15%}
研发占比变色:=STRCAT(STRCAT('',VAR2STR(研发占比,0)),' %')
当满足条件1时,在横轴0.27纵轴0.6位置书写文字
DRAWTEXT_FIX(FINANCE(3)=1 AND 研发占比>=0,0.27,0.6,1,研发占比变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=3 AND 研发占比>15,0.27,0.6,1,研发占比变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=3 AND 研发占比<=15,0.27,0.6,1,研发占比变色),画白色

{近3年累计分红}
ZJFHTS1赋值:SPLITBARS(0,1)
{最新一次分红到今天的天数}
ZJFHTS2赋值:SPLITBARS(1,1)
{上1次分红到今天的天数}
ZJFHTS3赋值:SPLITBARS(2,1)
ZJFHTS4赋值:SPLITBARS(3,1)
ZJFHTS5赋值:SPLITBARS(4,1)
ZJFHTS6赋值:SPLITBARS(5,1)
ZJFHTS7赋值:SPLITBARS(6,1)
ZJFHTS8赋值:SPLITBARS(7,1)
ZJFHTS9赋值:SPLITBARS(8,1)NODRAW

ZJFH1赋值:CONST(SPLIT(0,1)*REF(FINANCE(1),ZJFHTS1+2))/100000000
{最新一次分红的总额,后面加2的目的是怕分红同一天也扩股本,所以取分红前两天的股本来计算}
ZJFH2赋值:CONST(SPLIT(1,1)*REF(FINANCE(1),ZJFHTS2+2))/100000000
{上一次分红总额}
ZJFH3赋值:CONST(SPLIT(2,1)*REF(FINANCE(1),ZJFHTS3+2))/100000000
ZJFH4赋值:CONST(SPLIT(3,1)*REF(FINANCE(1),ZJFHTS4+2))/100000000
ZJFH5赋值:CONST(SPLIT(4,1)*REF(FINANCE(1),ZJFHTS5+2))/100000000
ZJFH6赋值:CONST(SPLIT(5,1)*REF(FINANCE(1),ZJFHTS6+2))/100000000
ZJFH7赋值:CONST(SPLIT(6,1)*REF(FINANCE(1),ZJFHTS7+2))/100000000
ZJFH8赋值:CONST(SPLIT(7,1)*REF(FINANCE(1),ZJFHTS8+2))/100000000
ZJFH9赋值:CONST(SPLIT(8,1)*REF(FINANCE(1),ZJFHTS9+2))/100000000

YYYY1赋值:CONST(INTPART(ZJFHTS1日前的DATE+19000000/10000))NODRAW
{最新一次分红的年份}
YYYY2赋值:CONST(INTPART(ZJFHTS2日前的DATE+19000000/10000))NODRAW
{上一次分红的年份}
YYYY3赋值:CONST(INTPART(ZJFHTS3日前的DATE+19000000/10000))NODRAW

YYYY4赋值:CONST(INTPART(ZJFHTS4日前的DATE+19000000/10000))NODRAW
YYYY5赋值:CONST(INTPART(ZJFHTS5日前的DATE+19000000/10000))NODRAW
YYYY6赋值:CONST(INTPART(ZJFHTS6日前的DATE+19000000/10000))NODRAW

YYYY7赋值:CONST(INTPART(ZJFHTS7日前的DATE+19000000/10000))NODRAW

YYYY8赋值:CONST(INTPART(ZJFHTS8日前的DATE+19000000/10000))NODRAW

YYYY9赋值:CONST(INTPART(ZJFHTS9日前的DATE+19000000/10000))NODRAW

D1NF赋值:INTPART(FINVALUE(0)/10000)+2000,NODRAW
D2NF赋值:D1NF-1,NODRAW
D3NF赋值:D1NF-2,NODRAW
如果YYYY1=D1NF返回ZJFH1否则返回0
如果YYYY1=D2NF返回ZJFH1否则返回0
如果YYYY1=D3NF返回ZJFH1否则返回0
{第3年累计分红}

分红总额赋值:D1NFH+D2NFH+D3NFH,NODRAW
{最新3年累计分红}
分红总额变色赋值:STRCAT(STRCAT('',VAR2STR(分红总额,2)),' 亿')
当满足条件1时,在横轴0.18纵轴0.45位置书写文字
DRAWTEXT_FIX(FINANCE(3)=1 AND 分红总额>0.5,0.23,0.45,1,分红总额变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=1 AND 分红总额<0.5,0.23,0.45,1,分红总额变色),画红色
DRAWTEXT_FIX(FINANCE(3)=3 AND 分红总额>0.3,0.23,0.45,1,分红总额变色),COLORGRAY
DRAWTEXT_FIX(FINANCE(3)=3 AND 分红总额<0.3,0.23,0.45,1,分红总额变色),画红色

分红占比赋值:分红总额/(GMJLRSUM/3)*100
{近三年累计分红<年均净利润30%} 分红占比变色:=STRCAT(STRCAT('',VAR2STR(分红占比,0)),' %')
当满足条件1时,在横轴0.27纵轴0.45位置书写文字
当满足条件分红占比>=30时,在横轴0.27纵轴0.45位置书写文字
当满足条件分红占比<30时,在横轴0.27纵轴0.45位置书写文字
当满足条件1时,在横轴0.42纵轴0.00位置书写文字
当满足条件1时,在横轴0.42纵轴0.15位置书写文字
当满足条件1时,在横轴0.42纵轴0.30位置书写文字
当满足条件1时,在横轴0.42纵轴0.45位置书写文字
当满足条件1时,在横轴0.42纵轴0.60位置书写文字

DNYYMMDD赋值:MACHINEDATE
{电脑日期,假设:1240501}
DN1YY:=INTPART(DNYYMMDD/10000)
{124}
DNYY赋值:INTPART(DN1YY-100)
{24}
DNYYYY赋值:INTPART((DNYYMMDD+19000000)/10000)
{2024}

元旦赋值:DNYY*10000+1000101
{1240101}
今年已过天数赋值:DATETODAY(MACHINEDATE)-DATETODAY(元旦)+1
{24年已过天数}
年份考核赋值:(FINANCE(42)-今年已过天数)>2*365
{年份考核:3个会计年度}

主板分红考核:=年份考核=1 AND 未分配利润>0 AND 归母净利润>0 AND 分红总额{主板分红考核}
创业板分红考核赋值:年份考核=1 AND 未分配利润>0 AND 归母净利润>0 AND 分红总额 {创业板分红考核,累计分红<年均净利润30%且低于3千万,累计研发费用<3亿,<累计营业收入15%} 分红考核不合格赋值:IF(FINANCE(3)=1,主板分红考核,IF(FINANCE(3)=3,创业板分红考核,DRAWNULL))

合格赋值:STRCAT('','合格')
不合格赋值:STRCAT('','不合格')
未满3年赋值:STRCAT('','未满3年')

DRAWTEXT_FIX(C>1,0.08,0.01,1,STRCAT('【利润考核】','：')),COLORGRAY
DRAWTEXT_FIX((归母净利润>0)AND(利润总额>0)AND(扣非净利润>0),0.1,0.01,1,合格),COLORGRAY
DRAWTEXT_FIX((归母净利润<0)OR(利润总额<0)OR(扣非净利润<0),0.11,0.01,1,不合格),画红色

DRAWTEXT_FIX(C>1,0.08,0.15,1,STRCAT('【市值考核】','：')),COLORGRAY
DRAWTEXT_FIX((FINANCE(3)=1 AND 总市值>5)OR(FINANCE(3)=3 AND 总市值>3),0.1,0.15,1,合格),COLORGRAY
DRAWTEXT_FIX((FINANCE(3)=1 AND 总市值<5)OR(FINANCE(3)=3 AND 总市值<3),0.11,0.15,1,不合格),画青色

DRAWTEXT_FIX(C>1,0.08,0.30,1,STRCAT('【营收考核】','：')),COLORGRAY
DRAWTEXT_FIX((归母净利润>0)AND(利润总额>0)AND(扣非净利润>0)AND(净资产>0),0.1,0.30,1,合格),COLORGRAY
DRAWTEXT_FIX(((FINANCE(3)=1 AND 营业收入>3)OR(FINANCE(3)=3 AND 营业收入>1))AND(净资产>0),0.1,0.30,1,合格),COLORGRAY
DRAWTEXT_FIX((((归母净利润<0)OR(利润总额<0)OR(扣非净利润<0))AND(FINANCE(3)=1 AND 营业收入<3))OR(净资产<0),0.11,0.30,1,不合格),COLORLIGREEN
DRAWTEXT_FIX((((归母净利润<0)OR(利润总额<0)OR(扣非净利润<0))AND(FINANCE(3)=3 AND 营业收入<1))OR(净资产<0),0.11,0.30,1,不合格),COLORLIGREEN
如果分红考核不合格=1返回''否则返回''
如果分红考核不合格=1返回'不合格'否则返回''
如果分红考核不合格=0 AND 年份考核=0返回'不考核'否则返回''
DRAWTEXT_FIX(C>1,0.11,0.45,1,STRCAT('',IF(分红考核不合格=0 AND 年份考核=1 AND (归母净利润<0 OR 未分配利润<0 OR 分红总额>=GMJLRKH),'不考核',''))),COLORLIRED
如果分红考核不合格=0 AND 年份考核=1 AND 归母净利润>0 AND 未分配利润>0 AND 分红总额

DRAWTEXT_FIX(C>1,0.08,0.60,1,STRCAT('【年份考核】','：')),COLORGRAY
DRAWTEXT_FIX(((FINANCE(42)-今年已过天数)/365>=2),0.1,0.60,1,合格),COLORGRAY
DRAWTEXT_FIX(((FINANCE(42)-今年已过天数)/365<2),0.11,0.60,1,未满3年),画黄色

{扫雷宝变色}
安全分赋值:SAFESCORE
扫雷宝赋值:STRCAT(STRCAT('【扫雷宝：',VAR2STR(安全分,0)),'分】')
当满足条件安全分>=80时,在横轴0.4纵轴0.60位置书写文字
当满足条件安全分<80 AND 安全分>=60时,在横轴0.4纵轴0.60位置书写文字
当满足条件安全分<60时,在横轴0.4纵轴0.60位置书写文字