资产安全表{资产预警表㊣----以年报为准 ----仅适应Wind资讯(万得资讯)}
{查寻F10}
DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
GDW0:=F10FIND('`财务分析`',1),LINETHICK;
GDW1:=F10FIND('主营业务收入(万元)',GDW0);
GDT1A:=F10TEXT(GDW1+22,2+9); GDT1B:=F10TEXT(GDW1+58,2+9);
GDW2:=F10FIND('营业利润(万元)',GDW0);
GDT2A:=F10TEXT(GDW2+22,2+9); GDT2B:=F10TEXT(GDW2+34,2+9);
GDW3:=F10FIND('资产总额(万元)',GDW0);
GDT3A:=F10TEXT(GDW3+22,2+9); GDT3B:=F10TEXT(GDW3+34,2+9);
GDW4:=F10FIND('负债总额(万元)',GDW0);
GDT4A:=F10TEXT(GDW4+22,2+9); GDT4B:=F10TEXT(GDW4+34,2+9);
GDW5:=F10FIND('流动负债(万元)',GDW0);
GDT5A:=F10TEXT(GDW5+22,2+9); GDT5B:=F10TEXT(GDW5+34,2+9);
GDW6:=F10FIND('销售商品收到的现金',GDW0);
GDT6A:=F10TEXT(GDW6+22,2+9); GDT6B:=F10TEXT(GDW6+34,2+9);
GDW7:=F10FIND('股东权益(万元)',GDW0);
GDT7A:=F10TEXT(GDW7+22,2+9); GDT7B:=F10TEXT(GDW7+34,2+9);
GDW8:=F10FIND('每股未分配利润(元)',GDW0);
GDT8A:=F10TEXT(GDW8+22,2+9); GDT8B:=F10TEXT(GDW8+34,2+9);
GDW9:=F10FIND('货币资金(万元)',GDW0);
GDT9A:=F10TEXT(GDW9+22,2+9); GDT9B:=F10TEXT(GDW9+34,2+9);
{换成数据}
x1k:=STRTONUM(GDT9A)/STRTONUM(GDT3A)*100; x1上:=STRTONUM(GDT9B)/STRTONUM(GDT3B)*100;
x2k:=STRTONUM(GDT8A)*FINANCE(1)/STRTONUM(GDT3A)*100; x2上:=STRTONUM(GDT8B)*FINANCE(1)/STRTONUM(GDT3B)*100;
x3k:=STRTONUM(GDT2A)/STRTONUM(GDT3A)*100; x3上:=STRTONUM(GDT2B)/STRTONUM(GDT3B)*100;
x4k:=STRTONUM(GDT1A)/STRTONUM(GDT3A)*100; x4上:=STRTONUM(GDT1B)/STRTONUM(GDT3B)*100;
x5k:=STRTONUM(GDT7A)/STRTONUM(GDT4A)*100; x5上:=STRTONUM(GDT7B)/STRTONUM(GDT4B)*100;
zk:=(1.2*x1k/100)+1.4*x2k/100+3.3*x3k/100+0.6*x4k/100+0.995*x5k/100;
z上:=(1.2*x1上/100)+1.4*x2上/100+3.3*x3上/100+0.6*x4上/100+0.995*x5上/100;
//表格
s1:=SYSPARAM(1); s2:=SYSPARAM(2); s3:=SYSPARAM(3); KS:=SYSPARAM(3)-SYSPARAM(2);
Z:=ks/80; X:=barpos=s2; x1:=barpos=s2+ROUND(z*10); x2:=barpos=s2+ROUND(z*32);
x3:=barpos=s2+ROUND(z*50); x4:=barpos=s2+ROUND(z*70); x5:=barpos=s2+ROUND(z*80);
//横线
PARTLINE(1,100),COLORWHITE;
PARTLINE(1,80),POINTDOT,COLORGRAY; PARTLINE(1,70),POINTDOT,COLORGRAY;
PARTLINE(1,50),POINTDOT,COLORGRAY; PARTLINE(1,60),POINTDOT,COLORGRAY;
PARTLINE(1,40),POINTDOT,COLORGRAY; PARTLINE(1,30),POINTDOT,COLORGRAY; PARTLINE(1,20),POINTDOT,COLORGRAY;
PARTLINE(1,0),COLORWHITE;
{竖线}
STICKLINE(x,100,0,0,0),COLORWHITE;
STICKLINE(x1,100,20,0,0),LINEDOT,COLORGRAY; STICKLINE(x2,100,20,0,0),LINEDOT,COLORGRAY;
STICKLINE(x3,100,20,0,0),LINEDOT,COLORGRAY; STICKLINE(x4,100,20,0,0),LINEDOT,COLORGRAY;
STICKLINE(x5,100,0,0,0),COLORWHITE;
{填表}
drawtext(x,90,' 序号:'),Color00E9C7;
drawtext(x,76,' X1'),Color00BBA9;
drawtext(x,66,' X2'),Color00BBA9;
drawtext(x,56,' X3'),Color00BBA9;
drawtext(x,46,' X4'),Color00BBA9;
drawtext(x,36,' X5'),Color00BBA9;
{}
drawtext(x1,90,' 指标说明'),Color00E9C7;
drawtext(x1,76,' 销售现金/资产总额'),Color00BBA9;
drawtext(x1,66,' 未分利润/资产总额'),Color00BBA9;
drawtext(x1,56,' 税前收益/资产总额'),Color00BBA9;
drawtext(x1,46,' 主营收入/资产总额'),Color00BBA9;
drawtext(x1,36,' 股东权益/负债总额'),Color00BBA9;
drawtext(x1,26,' Z值'),COLORWHITE;
{}
drawtext(x2,90,' 上年数'),Color00E9C7;
drawtext(x2,76,' '+NUMTOSTR(x1上,2)),Color00BBA9;
drawtext(x2,66,' '+NUMTOSTR(x2上,2)),Color00BBA9;
drawtext(x2,56,' '+NUMTOSTR(x3上,2)),Color00BBA9;
drawtext(x2,46,' '+NUMTOSTR(x4上,2)),Color00BBA9;
drawtext(x2,36,' '+NUMTOSTR(x5上,2)),Color00BBA9;
drawtext(x2,26,' '+NUMTOSTR(z上,4)),COLORWHITE;
{}
drawtext(x3,90,' 本年数'),Color00E9C7;
drawtext(x3,76,' '+NUMTOSTR(x1k,2)),Color00BBA9;
drawtext(x3,66,' '+NUMTOSTR(x2k,2)),Color00BBA9;
drawtext(x3,56,' '+NUMTOSTR(x3k,2)),Color00BBA9;
drawtext(x3,46,' '+NUMTOSTR(x4k,2)),Color00BBA9;
drawtext(x3,36,' '+NUMTOSTR(x5k,2)),Color00BBA9;
drawtext(x3,26,' '+NUMTOSTR(zk,4)),COLORWHITE;
{}
drawtext(x4,90,' 结果'),Color00E9C7;
drawtext(x4 and x1k>x1上,76,' 提高'),ColorFF6AFF;
drawtext(x4 and x2k>x2上,66,' 提高'),ColorFF6AFF;
drawtext(x4 and x3k>x3上,56,' 提高'),ColorFF6AFF;
drawtext(x4 and x4k>x4上,46,' 提高'),ColorFF6AFF;
drawtext(x4 and x5k>x5上,36,' 提高'),ColorFF6AFF;
drawtext(x4 and zk>z上,26,' 提高'),COLORRED;
{}
drawtext(x4 and x1k<x1上,76,' 下降'),COLORGREEN;
drawtext(x4 and x2k<x2上,66,' 下降'),COLORGREEN;
drawtext(x4 and x3k<x3上,56,' 下降'),COLORGREEN;
drawtext(x4 and x4k<x4上,46,' 下降'),COLORGREEN;
drawtext(x4 and x5k<x5上,36,' 下降'),COLORGREEN;
drawtext(x4 and zk<z上,26,' 下降')COLORCYAN;
{}
drawtext(x1 and zk>=0.6685,10,' 若Z≥0.6685 则表明企业的财务状况良好，发生破产的可能性较小'),ColorFFA8FF;
drawtext(x1 and zk<=0.4525,10,' 若Z≤0.4525 则企业存在很大的破产危险'),colorccffcc;
drawtext(x1 and BETWEEN(zk,0.6685,0.4525),10,' 若Z大于0.4525或者小于0.6685 则表明企业财务是极为不稳定的。 '),colorccffcc;
安全排序:zk,PRECISION4,LINETHICK,COLORWHITE;
//
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
