<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "‘¹‰vŒv‰æ" 'Dim ZeibikimaeRieki 'ZeibikimaeRieki= Request("ZeibikimaeRieki") Dim Shihonkin, ShihonkinRiekiRitsu, KazeiRitsu, Koteihi, UriagedakaRiekiRitsu Shihonkin = 0 ShihonkinRiekiRitsu = 0 KazeiRitsu = 0 Koteihi = 0 UriagedakaRiekiRitsu = 0 Dim Query, Content Query = "exec SPR•ªÍ_‘¹‰vŒv‰æŽæ“¾" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '‰‰KCD Query = Query & ",'" & KaisyaCD & "'" '‰ïŽÐCD Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shihonkin = Content.Fields("Ž‘–{‹à") ShihonkinRiekiRitsu = Content.Fields("Ž‘–{‹àƒ—˜‰v—¦") KazeiRitsu = Content.Fields("‰ÛÅ—¦") Koteihi = Content.Fields("ŒÅ’è”ï") UriagedakaRiekiRitsu = Content.Fields("”„ã‚‘—˜‰v—¦") End If '****************************************** Dim Shihonkin1, Jyunriekigaku,Jyunriekigaku1, ZeibikimaeRieki, ZeibikimaeRieki1 Dim MokuhyoUriageDaka, UriagedakaRiekiRitsu1, Koteihi1, SonekiBunkitenUriage,SonekiBunkitenUriage1 Dim MokuhyoUriageDaka1, SoriekiHi,Sorieki, UriageGenka,Koteihi2,ZeibikimaeRieki2,UriageGenkaHi Dim UriagedakaHi,KoteihiHi,ZeibikimaeRiekiHi UriagedakaHi=100 'KoteihiHi=0 Shihonkin1= ConvIntToMoney(ConvMoneyToInt(Shihonkin), false, false) Jyunriekigaku = ConvIntToMoney(ConvMoneyToInt(Shihonkin1) * ShihonkinRiekiRitsu, false, false) Jyunriekigaku1 = Jyunriekigaku if(KazeiRitsu <> "1") Then 'ZeibikimaeRieki = ConvIntToMoney(Math.floor(ConvMoneyToInt( Jyunriekigaku1 ) / ( 1 - KazeiRitsu )), false, false) ZeibikimaeRieki = ConvIntToMoney(Int(ConvMoneyToInt( Jyunriekigaku1 ) / ( 1 - KazeiRitsu )), false, false) ZeibikimaeRieki1 = ZeibikimaeRieki if( UriagedakaRiekiRitsu <> "0" and UriagedakaRiekiRitsu <> "") Then MokuhyoUriageDaka = ConvIntToMoney(Int((ConvMoneyToInt( Koteihi ) + ConvMoneyToInt( ZeibikimaeRieki1 )) / UriagedakaRiekiRitsu ), false, false) else MokuhyoUriageDaka = "0" End If UriagedakaRiekiRitsu1 = UriagedakaRiekiRitsu Koteihi1 = Koteihi if( UriagedakaRiekiRitsu <> "0" and UriagedakaRiekiRitsu <> "") Then 'SonekiBunkitenUriage = ConvIntToMoney(Math.floor(ConvMoneyToInt( Koteihi1 ) / UriagedakaRiekiRitsu ), false, false) SonekiBunkitenUriage = ConvIntToMoney(Int(ConvMoneyToInt( Koteihi1 ) / UriagedakaRiekiRitsu ), false, false) else SonekiBunkitenUriage = "0" End If MokuhyoUriageDaka1 = MokuhyoUriageDaka SoriekiHi = UriagedakaRiekiRitsu * 100 UriageGenkaHi = 100 - SoriekiHi if(ConvMoneyToInt( MokuhyoUriageDaka ) <> 0) Then KoteihiHi = ConvIntToMoney(Int(ConvMoneyToInt( Koteihi ) * 100 / ConvMoneyToInt( MokuhyoUriageDaka )), false, false) ZeibikimaeRiekiHi = SoriekiHi - KoteihiHi Sorieki = ConvIntToMoney(ConvMoneyToInt( Koteihi ) + ConvMoneyToInt( ZeibikimaeRieki ), false, false) UriageGenka = ConvIntToMoney(ConvMoneyToInt( MokuhyoUriageDaka ) - ConvMoneyToInt( Sorieki ), false, false) Koteihi2 = ConvIntToMoney(Koteihi, false, false) ZeibikimaeRieki2 = ZeibikimaeRieki End If End If '****************************************** %> <% = AppTitle %>
<% Response.Write(PrintHeader(0, PageType)) %>
Ž‘–{‹à = <% = ConvIntToMoney(Shihonkin, false, false) %>
–Ú•Wƒ—˜‰vŠz =
<% =Shihonkin1%> x <% = ShihonkinRiekiRitsu %> = <% =Jyunriekigaku%>
Ž‘–{‹à Ž‘–{‹àƒ—˜‰v—¦
@  
–Ú•Wňø‘O—˜‰vŠz =
<% = Jyunriekigaku1%> / ( 1 - <% = KazeiRitsu %> ) = <% = ZeibikimaeRieki%>
–Ú•Wƒ—˜‰vŠz ‰ÛÅ—¦
@  
–Ú•W”„ã‚ =
( <% = ConvIntToMoney(Koteihi, false, false) %> + <% = ZeibikimaeRieki1 %> ) /  <% = UriagedakaRiekiRitsu %> = <% = MokuhyoUriageDaka %>
ŒÅ’è”ï –Ú•Wňø‘O—˜‰vŠz ŒÀŠE—˜‰v—¦
@  
‘¹‰v•ªŠò“_”„ã =
<% = Koteihi1 %>  / <% = UriagedakaRiekiRitsu1 %> = <% = SonekiBunkitenUriage %>
ŒÅ’è”ï ŒÀŠE—˜‰v—¦
 

€–Ú ‹àŠz \¬”ä(%)
–Ú•W”„ã‚ <% = MokuhyoUriageDaka1 %> <% = UriagedakaHi %>
  •Ï“®”ï <% = UriageGenka %> <% = UriageGenkaHi %>
ŒÀŠE—˜‰v <% = Sorieki %> <% = SoriekiHi %>
  ŒÅ’è”ï <% = Koteihi2 %> <% = KoteihiHi %>
Œoí—˜‰v <% = ZeibikimaeRieki2 %> <% = ZeibikimaeRiekiHi %>
<% Response.Write(PrintFooter()) %> <% = HtmlFooter %> <% End Sub %>