打印本文
關閉窗口
相關標簽:資產流動性指標 、 國有資產保值增值指標 、 資產負債率指標 、 固定資產績效考核指標 、 資產負債率是什么指標 、 固定資產考核指標 、 資產管理公司監管指標 、 資產運營指標 、 固定資產指標 、 資產結構指標 、 資產負債表財務指標 、 資產負債表指標 、 銀行資產質量分析指標 、
?
資產安全表{資產預警表㊣----以年報為準 ----僅適應Wind資訊(萬得資訊)}
{查尋F10}
?
原理解析：
?
?來源:程序化99（ www.kzuj.com.cn ）
源碼：
?
?
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;
//
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?