財報余博評分系統(tǒng)

新用戶53275034 2023-03-04 發(fā)布于福建

展開全文

以下是通達信財報余博評分系統(tǒng) 獲利能力分析財務結構分析現(xiàn)金流分析副圖源碼貼（無源碼的請下載附件導入）

DRAWRECTREL(0,0,999,999,RGB(0,0,0));
N1:=0.1;
YEARA:=YEAR;
YEARB:=IF(MONTH<4,YEARA-1,YEARA);

DRAWTEXT_FIX(ISLASTBAR,0.15,0.0,0,'獲利能力分析（%）'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.465,0.0,0,'財務結構分析'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.790,0.0,0,'現(xiàn)金流分析（億）'),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0.007,N1,0,'季度'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.001,N1*2,0,IF(BH=0,'一季度','前二季')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.001,N1*3,0,IF(BH=0,'二季度','前一季')),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.002,N1*4,0,IF(BH=0,'三季度','當季')),COLORYELLOW;
{DRAWTEXT_FIX(ISLASTBAR,0.005,N1*5,0,'趨勢'),COLORCYAN;}
DRAWTEXT_FIX(ISLASTBAR,0.004,N1*6,0,'評分'),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.052,N1,0,'營業(yè)毛利率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.132,N1,0,'營業(yè)利潤率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.215,N1,0,'凈利率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.275,N1,0,'ROE'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.325,N1,0,'資產(chǎn)負債比率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.415,N1,0,'流動/總資產(chǎn)比'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.510,N1,0,'存貨周轉率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.590,N1,0,'應收帳款周轉率'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.700,N1,0,'經(jīng)營流量凈額'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.800,N1,0,'投資流量凈額'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.900,N1,0,'籌資流量凈額'),COLORGREEN;

DATE1:=IF(BH=0,0331,IF(FINANCE(37)=1,0930,IF(FINANCE(37)=2,1231,IF(FINANCE(37)=3,0331,IF(FINANCE(37)=4,0630,DRAWNULL)))));
DATE2:=IF(BH=0,0630,IF(FINANCE(37)=1,1231,IF(FINANCE(37)=2,0331,IF(FINANCE(37)=3,0630,IF(FINANCE(37)=4,0930,DRAWNULL)))));
DATE3:=IF(BH=0,0930,IF(FINANCE(37)=1,0331,IF(FINANCE(37)=2,0630,IF(FINANCE(37)=3,0930,IF(FINANCE(37)=4,1231,DRAWNULL)))));

{----------------營業(yè)毛利率---------------}
YYML2011:=FINONE(202,YEARB,DATE1);
YYML2012:=FINONE(202,YEARB,DATE2);
YYML2013:=FINONE(202,YEARB,DATE3);
MLS:=IF(YYML2011<YYML2012 AND YYML2012<YYML2013,2,IF(YYML2011>YYML2012 AND YYML2012>YYML2013,0,1));
MLF:=IF(FINVALUE(202)>50,15,IF(FINVALUE(202)>40,12,IF(FINVALUE(202)>30,9,IF(FINVALUE(202)>20,6,IF(FINVALUE(202)>10,3,0)))));
YYML2017:=CON2STR(MLF,0);
NYY:=0.065;
DRAWTEXT_FIX(ISLASTBAR,NYY,N1*2,0,CON2STR(YYML2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYY,N1*3,0,CON2STR(YYML2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYY,N1*4,0,CON2STR(YYML2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYY+0.01,N1*5,0,IF(MLS=0,'降',IF(MLS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NYY+0.01,N1*6,0,YYML2017),COLORYELLOW;
{----------------營業(yè)利潤率---------------}
YYLRL2011:=FINONE(194,YEARB,DATE1);
YYLRL2012:=FINONE(194,YEARB,DATE2);
YYLRL2013:=FINONE(194,YEARB,DATE3);
LYS:=IF(YYLRL2011<YYLRL2012 AND YYLRL2012<YYLRL2013,2,IF(YYLRL2011>YYLRL2012 AND YYLRL2012>YYLRL2013,0,1));
LYF:=IF(FINVALUE(194)>40,15,IF(FINVALUE(194)>20,12,IF(FINVALUE(194)>10,9,IF(FINVALUE(194)>5,6,IF(FINVALUE(194)>0,3,0)))));
YYLRL2017:=CON2STR(LYF,0);
NLRL:=0.14;
DRAWTEXT_FIX(ISLASTBAR,NLRL,N1*2,0,CON2STR(YYLRL2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NLRL,N1*3,0,CON2STR(YYLRL2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NLRL,N1*4,0,CON2STR(YYLRL2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NLRL+0.01,N1*5,0,IF(LYS=0,'降',IF(LYS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NLRL+0.01,N1*6,0,YYLRL2017),COLORYELLOW;

{----------------凈利率---------------}
JLN2011:=FINONE(199,YEARB,DATE1);
JLN2012:=FINONE(199,YEARB,DATE2);
JLN2013:=FINONE(199,YEARB,DATE3);
JLS:=IF(JLN2011<JLN2012 AND JLN2012<JLN2013,2,IF(JLN2011>JLN2012 AND JLN2012>JLN2013,0,1));
JLF:=IF(FINVALUE(199)>30,15,IF(FINVALUE(199)>15,12,IF(FINVALUE(199)>10,9,IF(FINVALUE(199)>5,6,IF(FINVALUE(199)>0,3,0)))));
JLN2017:=CON2STR(JLF,0);
NJLN:=0.215;
DRAWTEXT_FIX(ISLASTBAR,NJLN,N1*2,0,CON2STR(JLN2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLN,N1*3,0,CON2STR(JLN2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLN,N1*4,0,CON2STR(JLN2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLN+0.01,N1*5,0,IF(JLS=0,'降',IF(JLS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NJLN+0.01,N1*6,0,JLN2017),COLORYELLOW;

{------------------ROE-----------------------}
ROE2011:=FINONE(6,YEARB,DATE1);
ROE2012:=FINONE(6,YEARB,DATE2);
ROE2013:=FINONE(6,YEARB,DATE3);
ROES:=IF(ROE2011<ROE2012 AND ROE2012<ROE2013,2,IF(ROE2011>ROE2012 AND ROE2012>ROE2013,0,1));
ROEF:=IF(FINVALUE(6)>15,15,IF(FINVALUE(6)>10,12,IF(FINVALUE(6)>6,9,IF(FINVALUE(6)>3,6,IF(FINVALUE(6)>0,3,0)))));
ROE2017:=CON2STR(ROEF,0);
NROE:=0.27;
DRAWTEXT_FIX(ISLASTBAR,NROE,N1*2,0,CON2STR(ROE2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NROE,N1*3,0,CON2STR(ROE2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NROE,N1*4,0,CON2STR(ROE2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NROE+0.01,N1*5,0,IF(ROES=0,'降',IF(ROES=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NROE+0.01,N1*6,0,ROE2017),COLORYELLOW;

{-----------------資產(chǎn)負債比率------------------}
YESR2011:=FINONE(63,YEARB,DATE1)/FINONE(40,YEARB,DATE1)*100;
YESR2012:=FINONE(63,YEARB,DATE2)/FINONE(40,YEARB,DATE2)*100;
YESR2013:=FINONE(63,YEARB,DATE3)/FINONE(40,YEARB,DATE3)*100;
ZFS:=IF(YESR2011<YESR2012 AND YESR2012<YESR2013,2,IF(YESR2011>YESR2012 AND YESR2012>YESR2013,0,1));
ZFF:=IF(FINVALUE(63)/FINVALUE(40)*100>90,1,
IF(FINVALUE(63)/FINVALUE(40)*100>60,2,
IF(FINVALUE(63)/FINVALUE(40)*100>40,3,
IF(FINVALUE(63)/FINVALUE(40)*100>20,4,
IF(FINVALUE(63)/FINVALUE(40)*100>0,5,0)))));
YESR2017:=CON2STR(ZFF,0);
NYE:=0.34;
DRAWTEXT_FIX(ISLASTBAR,NYE,N1*2,0,CON2STR(YESR2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYE,N1*3,0,CON2STR(YESR2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYE,N1*4,0,CON2STR(YESR2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYE+0.01,N1*5,0,IF(ZFS=0,'降',IF(ZFS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NYE+0.01,N1*6,0,YESR2017),COLORYELLOW;

{-----------------流動/總資產(chǎn)比------------------}
YSZZ2011:=FINONE(21,YEARB,DATE1)/FINONE(40,YEARB,DATE1)*100;
YSZZ2012:=FINONE(21,YEARB,DATE2)/FINONE(40,YEARB,DATE2)*100;
YSZZ2013:=FINONE(21,YEARB,DATE3)/FINONE(40,YEARB,DATE3)*100;
LZS:=IF(YSZZ2011<YSZZ2012 AND YSZZ2012<YSZZ2013,2,IF(YSZZ2011>YSZZ2012 AND YSZZ2012>YSZZ2013,0,1));
LZB:=IF(FINVALUE(21)/FINVALUE(40)*100>70,5,
IF(FINVALUE(21)/FINVALUE(40)*100>50,4,
IF(FINVALUE(21)/FINVALUE(40)*100>30,3,
IF(FINVALUE(21)/FINVALUE(40)*100>20,2,
IF(FINVALUE(21)/FINVALUE(40)*100>10,1,0)))));
YSZZ2017:=CON2STR(LZB,0);
NYS:=0.43;
DRAWTEXT_FIX(ISLASTBAR,NYS,N1*2,0,CON2STR(YSZZ2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYS,N1*3,0,CON2STR(YSZZ2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYS,N1*4,0,CON2STR(YSZZ2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NYS+0.01,N1*5,0,IF(LZS=0,'降',IF(LZS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NYS+0.01,N1*6,0,YSZZ2017),COLORYELLOW;

{-----------------存貨周轉率------------------}
JLRL2011:=FINONE(173,YEARB,DATE1);
JLRL2012:=FINONE(173,YEARB,DATE2);
JLRL2013:=FINONE(173,YEARB,DATE3);
CHS:=IF(JLRL2011<JLRL2012 AND JLRL2012<JLRL2013,2,IF(JLRL2011>JLRL2012 AND JLRL2012>JLRL2013,0,1));
CHF:=IF(FINVALUE(173)>2,10,IF(FINVALUE(173)>1.5,8,IF(FINVALUE(173)>1,6,IF(FINVALUE(173)>0.5,4,IF(FINVALUE(173)>0,2,0)))));
JLRL2017:=CON2STR(CHF,0);
NJL:=0.52;
DRAWTEXT_FIX(ISLASTBAR,NJL,N1*2,0,CON2STR(JLRL2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJL,N1*3,0,CON2STR(JLRL2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJL,N1*4,0,CON2STR(JLRL2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJL+0.01,N1*5,0,IF(CHS=0,'降',IF(CHS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NJL+0.01,N1*6,0,JLRL2017),COLORYELLOW;

{----------------應收帳款周轉率---------------}
JLZZ2011:=FINONE(172,YEARB,DATE1);
JLZZ2012:=FINONE(172,YEARB,DATE2);
JLZZ2013:=FINONE(172,YEARB,DATE3);
YSS:=IF(JLZZ2011<JLZZ2012 AND JLZZ2012<JLZZ2013,2,IF(JLZZ2011>JLZZ2012 AND JLZZ2012>JLZZ2013,0,1));
YSF:=IF(FINVALUE(172)>10,10,IF(FINVALUE(172)>8,8,IF(FINVALUE(172)>6,6,IF(FINVALUE(172)>4,4,IF(FINVALUE(172)>0,2,0)))));
JLZZ2017:=CON2STR(YSF,0);
NJLZZ:=0.62;
DRAWTEXT_FIX(ISLASTBAR,NJLZZ,N1*2,0,CON2STR(JLZZ2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLZZ,N1*3,0,CON2STR(JLZZ2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLZZ,N1*4,0,CON2STR(JLZZ2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJLZZ+0.01,N1*5,0,IF(YSS=0,'降',IF(YSS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NJLZZ+0.01,N1*6,0,JLZZ2017),COLORYELLOW;
{------------------經(jīng)營現(xiàn)金流凈額------------------}
JYXJL2011:=FINONE(107,YEARB,DATE1)/100000000;
JYXJL2012:=FINONE(107,YEARB,DATE2)/100000000;
JYXJL2013:=FINONE(107,YEARB,DATE3)/100000000;
JYS:=IF(JYXJL2011<JYXJL2012 AND JYXJL2012<JYXJL2013,2,IF(JYXJL2011>JYXJL2012 AND JYXJL2012>JYXJL2013,0,1));
JYF:=IF(FINVALUE(107)>0,5,0);
JYXJL2017:=CON2STR(JYF,0);
NJY:=0.72;
DRAWTEXT_FIX(ISLASTBAR,NJY,N1*2,0,CON2STR(JYXJL2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJY,N1*3,0,CON2STR(JYXJL2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJY,N1*4,0,CON2STR(JYXJL2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NJY+0.01,N1*5,0,IF(JYS=0,'降',IF(JYS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NJY+0.01,N1*6,0,JYXJL2017),COLORYELLOW;

{------------------投資現(xiàn)金流凈額------------------}
CDFZ2011:=FINONE(119,YEARB,DATE1)/100000000;
CDFZ2012:=FINONE(119,YEARB,DATE2)/100000000;
CDFZ2013:=FINONE(119,YEARB,DATE3)/100000000;
TZS:=IF(CDFZ2011<CDFZ2012 AND CDFZ2012<CDFZ2013,2,IF(CDFZ2011>CDFZ2012 AND CDFZ2012>CDFZ2013,0,1));
TZF:=IF(FINVALUE(119)<0,3,0);
CDFZ2017:=CON2STR(TZF,0);
NFZ:=0.83;
DRAWTEXT_FIX(ISLASTBAR,NFZ,N1*2,0,CON2STR(CDFZ2011,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NFZ,N1*3,0,CON2STR(CDFZ2012,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NFZ,N1*4,0,CON2STR(CDFZ2013,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NFZ+0.01,N1*5,0,IF(TZS=0,'降',IF(TZS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NFZ+0.01,N1*6,0,CDFZ2017),COLORYELLOW;

{------------------籌資現(xiàn)金流凈額------------------}
CDFZ2211:=FINONE(128,YEARB,DATE1)/100000000;
CDFZ2212:=FINONE(128,YEARB,DATE2)/100000000;
CDFZ2213:=FINONE(128,YEARB,DATE3)/100000000;
CZS:=IF(CDFZ2211<CDFZ2212 AND CDFZ2212<CDFZ2213,2,IF(CDFZ2211>CDFZ2212 AND CDFZ2212>CDFZ2213,0,1));
CZF:=IF(FINVALUE(128)>0,2,0);
CDFZ2217:=CON2STR(CZF,0);
NFX:=0.93;
DRAWTEXT_FIX(ISLASTBAR,NFX,N1*2,0,CON2STR(CDFZ2211,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NFX,N1*3,0,CON2STR(CDFZ2212,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NFX,N1*4,0,CON2STR(CDFZ2213,2)),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,NFX+0.01,N1*5,0,IF(CZS=0,'降',IF(CZS=1,'平','升'))),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,NFX+0.01,N1*6,0,CDFZ2217),COLORYELLOW;

{------------------畫外框-----------------}
{DRAWRECTREL(0,680,110,999,RGB(10,60,110)); } {填充色}
{DRAWRECTREL(5,0,990,0.1,RGB(185,120,200)); {上橫線}
DRAWRECTREL(46,83,995,83.1,RGB(185,120,200)); {二橫線}
DRAWRECTREL(1,182,995,182.1,RGB(185,120,200)); {三橫線}
DRAWRECTREL(1,580,995,580.1,RGB(185,120,200)); {四橫線}
DRAWRECTREL(1,680,995,680.1,RGB(185,120,200)); {五橫線}
DRAWRECTREL(46,830,110,830.1,RGB(185,120,200)); {六橫線}
DRAWRECTREL(1,480,995,480.1,RGB(185,120,200)); {趨勢上橫線}
DRAWRECTREL(46,0,45.9,995,RGB(185,120,200)); {左1豎線}
DRAWRECTREL(315,0,315.1,580,RGB(185,120,200)); {左2豎線}
DRAWRECTREL(690,0,690.1,580,RGB(185,120,200)); {左3豎線};
DRAWRECTREL(390,680,393,998,RGB(15,20,50)); {4豎線};
DRAWRECTREL(800,680,803,998,RGB(15,20,50)); {5豎線};
DRAWTEXT_FIX(ISLASTBAR,0.006,N1*8-0.05,0,'當季財報'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.006,N1*9-0.05,0,'評分結果'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.085,N1*7+0.035,0,'分'),COLORWHITE;
ZF:=MLF+LYF+JLF+ROEF+ZFF+LZB+CHF+YSF+JYF+TZF+CZF;
DRAWTEXT_FIX(ISLASTBAR,0.065,N1*7+0.035,0,CON2STR(ZF,0)),COLORWHITE;
YL:=IF(ZF>59,'優(yōu)等',IF(ZF>49,'中等','觀望'));
DRAWTEXT_FIX(ISLASTBAR,0.065,N1*8+0.08,0,YL),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.18,N1*7,0,'1.優(yōu)等：較不易發(fā)生財務危機'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.18,N1*8,0,'2.中等：財務體質一般；'),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.18,N1*9,0,'3.觀望：財務體質較弱，投資風險較高；'),COLORGREEN;

XJL:=(FINONE(107,0,1231)+FINONE(119,0,1231)+ABS(FINONE(80,0,1231)))/(C*FINONE(238,0,0000)+FINVALUE(62)-FINVALUE(8))*100;
{XJL:=((FINVALUE(107)+FINVALUE(119))+(FINVALUE(80)))/(FINVALUE(239)*C+FINVALUE(62)-FINVALUE(8))*100;}
DRAWTEXT_FIX(ISLASTBAR,0.535,N1*7+0.02,0,STRCAT('現(xiàn)金報酬率：',STRCAT(CON2STR(XJL,2),'%'))),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.430,N1*8+0.02,0,'現(xiàn)金報酬率不同行業(yè)高低標準不同，通常4-6可考慮介入，'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.430,N1*9+0.02,0,'醫(yī)藥行業(yè)1左右，個股主要與前低處報酬率相比對，接近可考慮'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.820,N1*8-0.02,0,'財析密碼煉金術-倡導價值投資'),COLORRED;
{BK:='滬深Ａ股';
LTSZ:HORCALC(BK,103,0,4)/100; {億元}
{
DRAWTEXT_FIX(ISLASTBAR,0.785,N1*7+0.02,0,STRCAT('大頂參考指標： ',CON2STR(LTSZ,2))),COLORYELLOW;
};