<% If Uriage <> 0 Then Response.Write(Int(KeijyoRieki * 100 / Uriage)) End If %>
<% If Mokuhyo(1) <> 0 Then Response.Write(Mokuhyo(1) & " %") End If %>
<%
If Uriage <> 0 And Mokuhyo(1) <> 0 Then
If Int(KeijyoRieki * 100 / Uriage) >= Mokuhyo(1) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
<% If Uriage <> 0 Then Response.Write(Int((Uriage - UriageGenka) * 100 / Uriage)) End If %>
<% If Mokuhyo(2) <> 0 Then Response.Write(Mokuhyo(2) & " %") End If %>
<%
If Uriage <> 0 And Mokuhyo(2) <> 0 Then
If Int((Uriage - UriageGenka) * 100 / Uriage) >= Mokuhyo(2) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
売上原価率(%)
売上原価
× 100
売上高
=
<% = ConvIntToMoney(UriageGenka, false, false) %>
× 100
<% = ConvIntToMoney(Uriage, false, false) %>
=
<% If Uriage <> 0 Then Response.Write(Int(UriageGenka * 100 / Uriage)) End If %>
<% If Mokuhyo(3) <> 0 Then Response.Write(Mokuhyo(3) & " %") End If %>
<%
If Uriage <> 0 And Mokuhyo(3) <> 0 Then
If Int((Uriage - UriageGenka) * 100 / Uriage) <= Mokuhyo(3) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
総資本利益率(%)
当期純利益
× 100
総資本
=
<% = ConvIntToMoney(KeijyoRieki, false, false) %>
× 100
<% = ConvIntToMoney(SoShihon, false, false) %>
=
<% If SoShihon <> 0 Then Response.Write(Int(KeijyoRieki * 100 / SoShihon)) End If %>
<% If Mokuhyo(4) <> 0 Then Response.Write(Mokuhyo(4) & " %") End If %>
<%
If SoShihon <> 0 And Mokuhyo(4) <> 0 Then
If Int(KeijyoRieki * 100 / SoShihon) >= Mokuhyo(4) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
自己資本利益率(%)
当期純利益
× 100
自己資本
=
<% = ConvIntToMoney(KeijyoRieki, false, false) %>
× 100
<% = ConvIntToMoney(JikoShihon, false, false) %>
=
<% If JikoShihon <> 0 Then Response.Write(Int(KeijyoRieki * 100 / JikoShihon)) %>
<% If Mokuhyo(5) <> 0 Then Response.Write(Mokuhyo(5) & " %") End If %>
<%
If JikoShihon <> 0 And Mokuhyo(5) <> 0 Then
If Int(KeijyoRieki * 100 / JikoShihon) >= Mokuhyo(5) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
総資本回転率(回)
売上高
総資本
=
<% = ConvIntToMoney(Uriage, false, false) %>
<% = ConvIntToMoney(SoShihon, false, false) %>
=
<% If SoShihon <> 0 Then Response.Write(Int(Uriage * 100/ SoShihon) / 100 ) End If %>
<% If Mokuhyo(6) <> 0 Then Response.Write(Mokuhyo(6) & " 回") End If %>
<%
If SoShihon <> 0 And Mokuhyo(6) <> 0 Then
If Int(Uriage * 100 / SoShihon) / 100 >= Mokuhyo(6) 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 %>
<% If Mokuhyo(7) <> 0 Then Response.Write(Mokuhyo(7) & " 回") End If %>
<%
If JikoShihon <> 0 And Mokuhyo(7) <> 0 Then
If Int(Uriage * 100 / JikoShihon) / 100 >= Mokuhyo(7) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
<% If UketoriKanjo <> 0 Then Response.Write(Int(Uriage * 100 / UketoriKanjo) / 100) End If %>
<% If Mokuhyo(8) <> 0 Then Response.Write(Mokuhyo(8) & " 回") End If %>
<%
If UketoriKanjo <> 0 And Mokuhyo(8) <> 0 Then
If Int(Uriage * 100 / UketoriKanjo) / 100 >= Mokuhyo(8) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
<% If TanaoroshiShisan <> 0 Then Response.Write(Int(UriageGenka * 100 / TanaoroshiShisan) / 100) End If %>
<% If Mokuhyo(9) <> 0 Then Response.Write(Mokuhyo(9) & " 回") End If %>
<%
If TanaoroshiShisan <> 0 And Mokuhyo(9) <> 0 Then
If Int(Uriage * 100 / TanaoroshiShisan) / 100 >= Mokuhyo(9) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
固定資産回転率(回)
売上原価
固定資産有高
=
<% = ConvIntToMoney(UriageGenka, false, false) %>
<% = ConvIntToMoney(KoteiShisan, false, false) %>
=
<% If KoteiShisan <> 0 Then Response.Write(Int(UriageGenka * 100 / KoteiShisan) / 100) End If %>
<% If Mokuhyo(10) <> 0 Then Response.Write(Mokuhyo(10) & " 回") End If %>
<%
If KoteiShisan <> 0 And Mokuhyo(10) <> 0 Then
If Int(UriageGenka * 100 / KoteiShisan) / 100 >= Mokuhyo(10) Then
Response.Write("OK")
Else
Response.Write("NG")
End If
End If
%>
目標値は中小企業の業種別指標より<% If Shihyo = "Oroshi" Then %>卸<% Else %>小<% End If %>売業平均を採用