| 貸借対照表 |
| 流動資産 |
<% = ConvIntToMoney(TozaShisan + TanaoroshiShisan + SonotaRyudoShisan, false, false) %> |
流動負債 |
<% = ConvIntToMoney(RyudoFusai, false, false) %> |
| 当座資産 |
<% = ConvIntToMoney(TozaShisan, false, false) %> |
固定負債 |
<% = ConvIntToMoney(KoteiFusai, false, false) %> |
| 棚卸資産 |
<% = ConvIntToMoney(TanaoroshiShisan, false, false) %> |
負債計 |
<% = ConvIntToMoney(RyudoFusai + KoteiFusai, false, false) %> |
| その他 |
<% = ConvIntToMoney(SonotaRyudoShisan, false, false) %> |
資本 |
<% = ConvIntToMoney(JikoShihon, false, false) %> |
| 固定資産 |
<% = ConvIntToMoney(KoteiShisan, false, false) %> |
未処分利益 |
<% = ConvIntToMoney(TozaShisan + TanaoroshiShisan + SonotaRyudoShisan + KoteiShisan - JikoShihon - RyudoFusai - KoteiFusai , false, false) %> |
| 資産計 |
<%
Dim SoShihon
SoShihon = TozaShisan + TanaoroshiShisan + SonotaRyudoShisan + KoteiShisan
Response.Write(ConvIntToMoney(SoShihon , false, false)) %> |
負債・資本計 |
<% = ConvIntToMoney(SoShihon , false, false) %> |
|
| 損益計算書 |
| 売上高 |
<% = ConvIntToMoney(Uriage, false, false) %> |
| 売上原価 |
<% = ConvIntToMoney(UriageGenka, false, false) %> |
| 売上総利益 |
<% = ConvIntToMoney(Uriage - UriageGenka, false, false) %> |
| 販売・管理費 |
<% = ConvIntToMoney(HanbaiKanrihi, false, false) %> |
| 営業利益 |
<% = ConvIntToMoney(Uriage - UriageGenka - HanbaiKanrihi, false, false) %> |
| 営業外収益 |
<% = ConvIntToMoney(EigyogaiSyueki, false, false) %> |
| 営業外費用 |
<% = ConvIntToMoney(EigyogaiHiyo, false, false) %> |
| 経常利益 |
<%
Dim KeijyoRieki
KeijyoRieki = Uriage - UriageGenka - HanbaiKanrihi + EigyogaiSyueki - EigyogaiHiyo
Response.Write(ConvIntToMoney(KeijyoRieki, false, false)) %> |
|
|
|
| 項目 |
計算式 |
目標値 |
評価 |
| 流動比率(%) |
|
|
= |
| <% = ConvIntToMoney(TozaShisan + TanaoroshiShisan + SonotaRyudoShisan, false, false) %> |
* 100 |
| <% = ConvIntToMoney(RyudoFusai, false, false) %> |
|
= |
<% If RyudoFusai <> 0 Then Response.Write(Int((TozaShisan + TanaoroshiShisan + SonotaRyudoShisan) * 100 / RyudoFusai)) %> |
|
200 % |
<%
If RyudoFusai <> 0 Then
If Int((TozaShisan + TanaoroshiShisan + SonotaRyudoShisan) * 100 / RyudoFusai) >= 200 Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%> |
| 当座比率(%) |
|
|
= |
| <% = ConvIntToMoney(TozaShisan, false, false) %> |
* 100 |
| <% = ConvIntToMoney(RyudoFusai, false, false) %> |
|
= |
<% If RyudoFusai <> 0 Then Response.Write(Int(TozaShisan * 100 / RyudoFusai)) End If %> |
|
100 % |
<%
If RyudoFusai <> 0 Then
If Int(TozaShisan * 100 / RyudoFusai) >= 100 Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If %> |
| 資本固定比率(%) |
|
|
= |
| <% = ConvIntToMoney(JikoShihon, false, false) %> |
* 100 |
| <% = ConvIntToMoney(KoteiShisan, false, false) %> |
|
= |
<% If KoteiShisan <> 0 Then Response.Write(Int(JikoShihon * 100 / KoteiShisan)) %> |
|
100 % |
<%
If KoteiShisan <> 0 Then
If Int(JikoShihon * 100 / KoteiShisan) >= 100 Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If %> |
| 自己資本構成比率(%) |
|
|
= |
| <% = ConvIntToMoney(JikoShihon, false, false) %> |
* 100 |
| <% = ConvIntToMoney(SoShihon , false, false) %> |
|
= |
<% If SoShihon <> 0 Then Response.Write(Int(JikoShihon* 100 / SoShihon)) End If %> |
|
44.7 % |
<%
If SoShihon <> 0 Then
If Int(JikoShihon * 100 / SoShihon ) >= 44.7 Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If %> |
| 資本負債比率(%) |
|
|
= |
| <% = ConvIntToMoney(JikoShihon, false, false) %> |
* 100 |
| <% = ConvIntToMoney(RyudoFusai + KoteiFusai, false, false) %> |
|
= |
<% If (RyudoFusai + KoteiFusai) <> 0 Then Response.Write(Int(JikoShihon * 100 / (RyudoFusai + KoteiFusai))) End If %> |
|
26.5 % |
<%
If (RyudoFusai + KoteiFusai) <> 0 Then
If Int(JikoShihon * 100 / (RyudoFusai + KoteiFusai)) / 100 <= 26.5 Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If %> |
| 自己資本回転率(回) |
|
|
= |
| <% = ConvIntToMoney(Uriage, false, false) %> |
| <% = ConvIntToMoney(JikoShihon, false, false) %> |
|
= |
<% If JikoShihon <> 0 Then Response.Write(Int(Uriage * 100 / JikoShihon) / 100) End If %> |
|
1.6 回 |
<%
If JikoShihon <> 0 Then
If Int(Uriage * 100 / JikoShihon) / 100 >= 1.6 Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If %>
|
|
| 目標値は中小企業の業種別指標より小売業平均を採用 |
|
|
|
|