- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-9-8
|
|

楼主 |
发表于 2007-1-6 10:21
|
显示全部楼层
财务预警 (分析家6.0公式)
(必须有专业财务数据才可看到)
input:N(4,0,4);
Var1:=(1.2*(FINANCE(11)-FINANCE(15))/FINANCE(10)+1.4*(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)+3.3*(PROFFIN(3025,N)+PROFFIN(3026,N)+PROFFIN(3027,N))/PROFFIN(3008,N)+0.6*c*PROFFIN(1001,0)/PROFFIN(3013,0)+0.999*PROFFIN(3019,0)/PROFFIN(3008,0));
IF BARSTATUS=2 THEN DRAWTEXTABS(300,13,'财务预警(仅供参考)'),LINETHICK2,COLORFF00FF;
IF BARSTATUS=2 THEN DRAWTEXTABS(150,33,' 序号 指标说明 上年数 本年数 结果'),LINETHICK2,COLORFFFF80;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,50,' X1 营运资金/资产总额 '+NUMTOSTRN((PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)*100,1)+'% '+NUMTOSTRN((FINANCE(11)-FINANCE(15))/FINANCE(10)*100,1)+'% '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,67,' X2 留存收益/资产总额 '+NUMTOSTRN((PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)*100,1)+'% '+NUMTOSTRN((PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)*100,1)+'% '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,84,' X3 息税前收益/资产总额 '+NUMTOSTRN(REF(FINANCE(23)*1000,N)/PROFFIN(3008,N)*100,1)+'% '+NUMTOSTRN(FINANCE(23)*1000/PROFFIN(3008,0)*100,1)+'% '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,101,' X4 权益市价/债务总额 '+NUMTOSTRN(PROFFIN(3016,N)/PROFFIN(3013,N)*100,1)+'% '+NUMTOSTRN(PROFFIN(3016,0)/PROFFIN(3013,0)*100,1)+'% '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,118,' X5 销售额/资产总额 '+NUMTOSTRN(PROFFIN(3019,N)/PROFFIN(3008,N)*100,1)+'% '+NUMTOSTRN(PROFFIN(3019,0)/PROFFIN(3008,0)*100,1)+'% '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 THEN DRAWTEXTABS(170,135,'Z值 '+NUMTOSTRN((1.2*(PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)+1.4*(PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)
+3.3*REF(FINANCE(23)*1000,N)/PROFFIN(3008,N)+0.6*PROFFIN(3016,N)/PROFFIN(3013,N)+0.999*PROFFIN(3019,N)/PROFFIN(3008,N)),2)+' '+NUMTOSTRN((1.2*(FINANCE(11)-FINANCE(15))/FINANCE(10)+1.4*(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)+3.3*FINANCE(23)*1000/PROFFIN(3008,0)+0.6*PROFFIN(3016,0)/PROFFIN(3013,0)+0.999*PROFFIN(3019,0)/PROFFIN(3008,0)),2)+' '),LINETHICK1,COLORWHITE;
IF BARSTATUS=2 AND (PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)*100<(FINANCE(11)-FINANCE(15))/FINANCE(10)*100 THEN DRAWTEXTABS(527,50,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND (PROFFIN(3004,N)-PROFFIN(3011,N))/PROFFIN(3008,N)*100>(FINANCE(11)-FINANCE(15))/FINANCE(10)*100 THEN DRAWTEXTABS(527,50,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND (PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)*100<(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,67,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND (PROFFIN(3031,N)+PROFFIN(3018,N))/PROFFIN(3008,N)*100>(PROFFIN(3031,0)+PROFFIN(3018,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,67,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND (PROFFIN(3025,N)+PROFFIN(3026,N)+PROFFIN(3027,N))/PROFFIN(3008,N)*100<(PROFFIN(3025,0)+PROFFIN(3026,0)+PROFFIN(3027,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,84,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND (PROFFIN(3025,N)+PROFFIN(3026,N)+PROFFIN(3027,N))/PROFFIN(3008,N)*100>(PROFFIN(3025,0)+PROFFIN(3026,0)+PROFFIN(3027,0))/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,84,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND PROFFIN(3016,N)/PROFFIN(3013,N)*100<PROFFIN(3016,0)/PROFFIN(3013,0)*100 THEN DRAWTEXTABS(527,101,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND PROFFIN(3016,N)/PROFFIN(3013,N)*100>PROFFIN(3016,0)/PROFFIN(3013,0)*100 THEN DRAWTEXTABS(527,101,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND PROFFIN(3019,N)/PROFFIN(3008,N)*100<PROFFIN(3019,0)/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,118,'提高'),LINETHICK1,COLORFFB490;
IF BARSTATUS=2 AND PROFFIN(3019,N)/PROFFIN(3008,N)*100>PROFFIN(3019,0)/PROFFIN(3008,0)*100 THEN DRAWTEXTABS(527,118,'降低'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND 1.81<Var1 AND Var1<2.675 THEN DRAWTEXTABS(527,135,'警惕'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1>2.675 THEN DRAWTEXTABS(527,135,'良好'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1<1.81 THEN DRAWTEXTABS(527,135,'警惕'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND 1.81<Var1 AND Var1<2.675 THEN DRAWTEXTABS(180,150,'▲若1.81<Z<2.675 则表明企业财务是极为不稳定的。'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1>2.675 THEN DRAWTEXTABS(180,150,'▲若Z≥2.675 则表明企业的财务状况良好,发生破产的可能性较小;'),LINETHICK1,COLOR3939FC;
IF BARSTATUS=2 AND Var1<1.81 THEN DRAWTEXTABS(180,150,'▲若Z≤1.81 则企业存在很大的破产危险;'),LINETHICK1,COLOR3939FC;
DRAWTEXTABS(150,10,'│ │'),Color00FFFF;
DRAWTEXTABS(150,22,'│ │'),Color00FFFF;
DRAWTEXTABS(150,34,'│ │'),Color00FFFF;
DRAWTEXTABS(150,46,'│ │'),Color00FFFF;
DRAWTEXTABS(150,58,'│ │'),Color00FFFF;
DRAWTEXTABS(150,70,'│ │'),Color00FFFF;
DRAWTEXTABS(150,82,'│ │'),Color00FFFF;
DRAWTEXTABS(150,94,'│ │'),Color00FFFF;
DRAWTEXTABS(150,106,'│ │'),Color00FFFF;
DRAWTEXTABS(150,118,'│ │'),Color00FFFF;
DRAWTEXTABS(150,130,'│ │'),Color00FFFF;
DRAWTEXTABS(150,142,'│ │'),Color00FFFF;
DRAWTEXTABS(150,152,'│ │'),Color00FFFF;
DRAWTEXTABS(200,32,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,34,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,46,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,58,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,70,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,82,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,94,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,106,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,118,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,130,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(200,136,'│ │ │ │'),Color00FFFF;
DRAWTEXTABS(155,5,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,25,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,42,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,59,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,76,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,93,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,110,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,127,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,142,'───────────────────────────────────'),Color00FFFF;
DRAWTEXTABS(155,159,'───────────────────────────────────'),Color00FFFF;
DRAWGBK(C,Strip(RGB(0,10,160),RGB(00,10,160),0)); |
|
|