打印本文
關(guān)閉窗口
相關(guān)標(biāo)簽:資產(chǎn)流動(dòng)性指標(biāo) 、 國(guó)有資產(chǎn)保值增值指標(biāo) 、 資產(chǎn)負(fù)債率指標(biāo) 、 固定資產(chǎn)績(jī)效考核指標(biāo) 、 資產(chǎn)負(fù)債率是什么指標(biāo) 、 固定資產(chǎn)考核指標(biāo) 、 資產(chǎn)管理公司監(jiān)管指標(biāo) 、 資產(chǎn)運(yùn)營(yíng)指標(biāo) 、 固定資產(chǎn)指標(biāo) 、 資產(chǎn)結(jié)構(gòu)指標(biāo) 、 資產(chǎn)負(fù)債表財(cái)務(wù)指標(biāo) 、 資產(chǎn)負(fù)債表指標(biāo) 、 銀行資產(chǎn)質(zhì)量分析指標(biāo) 、
?
資產(chǎn)安全表{資產(chǎn)預(yù)警表㊣----以年報(bào)為準(zhǔn) ----僅適應(yīng)Wind資訊(萬(wàn)得資訊)}
{查尋F10}
?
原理解析：
?
?來(lái)源:程序化99（ www.kzuj.com.cn ）
源碼：
?
?
DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
GDW0:=F10FIND('`財(cái)務(wù)分析`',1),LINETHICK;
GDW1:=F10FIND('主營(yíng)業(yè)務(wù)收入(萬(wàn)元)',GDW0);
GDT1A:=F10TEXT(GDW1+22,2+9); GDT1B:=F10TEXT(GDW1+58,2+9);
GDW2:=F10FIND('營(yíng)業(yè)利潤(rùn)(萬(wàn)元)',GDW0);
GDT2A:=F10TEXT(GDW2+22,2+9); GDT2B:=F10TEXT(GDW2+34,2+9);
GDW3:=F10FIND('資產(chǎn)總額(萬(wàn)元)',GDW0);
GDT3A:=F10TEXT(GDW3+22,2+9); GDT3B:=F10TEXT(GDW3+34,2+9);
GDW4:=F10FIND('負(fù)債總額(萬(wàn)元)',GDW0);
GDT4A:=F10TEXT(GDW4+22,2+9); GDT4B:=F10TEXT(GDW4+34,2+9);
GDW5:=F10FIND('流動(dòng)負(fù)債(萬(wàn)元)',GDW0);
GDT5A:=F10TEXT(GDW5+22,2+9); GDT5B:=F10TEXT(GDW5+34,2+9);
GDW6:=F10FIND('銷(xiāo)售商品收到的現(xiàn)金',GDW0);
GDT6A:=F10TEXT(GDW6+22,2+9); GDT6B:=F10TEXT(GDW6+34,2+9);
GDW7:=F10FIND('股東權(quán)益(萬(wàn)元)',GDW0);
GDT7A:=F10TEXT(GDW7+22,2+9); GDT7B:=F10TEXT(GDW7+34,2+9);
GDW8:=F10FIND('每股未分配利潤(rùn)(元)',GDW0);
GDT8A:=F10TEXT(GDW8+22,2+9); GDT8B:=F10TEXT(GDW8+34,2+9);
GDW9:=F10FIND('貨幣資金(萬(wàn)元)',GDW0);
GDT9A:=F10TEXT(GDW9+22,2+9); GDT9B:=F10TEXT(GDW9+34,2+9);
{換成數(shù)據(jù)}
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,' 序號(hào):'),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,' 指標(biāo)說(shuō)明'),Color00E9C7;
drawtext(x1,76,' 銷(xiāo)售現(xiàn)金/資產(chǎn)總額'),Color00BBA9;
drawtext(x1,66,' 未分利潤(rùn)/資產(chǎn)總額'),Color00BBA9;
drawtext(x1,56,' 稅前收益/資產(chǎn)總額'),Color00BBA9;
drawtext(x1,46,' 主營(yíng)收入/資產(chǎn)總額'),Color00BBA9;
drawtext(x1,36,' 股東權(quán)益/負(fù)債總額'),Color00BBA9;
drawtext(x1,26,' Z值'),COLORWHITE;
{}
drawtext(x2,90,' 上年數(shù)'),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,' 本年數(shù)'),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,' 結(jié)果'),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 則表明企業(yè)的財(cái)務(wù)狀況良好，發(fā)生破產(chǎn)的可能性較小'),ColorFFA8FF;
drawtext(x1 and zk<=0.4525,10,' 若Z≤0.4525 則企業(yè)存在很大的破產(chǎn)危險(xiǎn)'),colorccffcc;
drawtext(x1 and BETWEEN(zk,0.6685,0.4525),10,' 若Z大于0.4525或者小于0.6685 則表明企業(yè)財(cái)務(wù)是極為不穩(wěn)定的。 '),colorccffcc;
安全排序:zk,PRECISION4,LINETHICK,COLORWHITE;
//
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?