作者shefans (光榮滴月巴NNN )
看板Visual_Basic
標題[ASP ] 小數點的數跑步出來...
時間Thu Oct 13 01:05:53 2005
小弟有點小問題
以下是我的程式碼
<%@ page language="VB" %>
<script runat="server">
sub page_load()
dim tip as string
tip=sss("","","")
she2.text=tip
end sub
Sub button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
dim tip as double
tip=sss(mon1.text,mon2.text,mon3.text)
she2.text=tip
end sub
function sss(str1 as string,str2 as string,str3 as string)as string
dim a,b,c,f,g as double
dim d as integer=0
if len(str1)<>0 & len(str2)<>0 & len(str3)<>0
a=val(str1)
b=val(str2)
c=val(str3)
return "總共花了" & d & "月還清 本金加利息共" & format((c*d+a),"##.000") & "元"
else
return "請於上述三格內輸入完整數字"
end if
end function
</script>
<html>
<head>
<title>
</title>
</head>
<body>
<form name ="form1" runat="server">
<asp:label id="she1" runat="server" text="請輸入貸款金額,年利率每月還款金額"></asp:label><br>
貸款金額<asp:textbox id="mon1" runat="server" ></asp:textbox><br>
年利率 <asp:textbox id="mon2" runat="server" ></asp:textbox><br>
每月還款<asp:textbox id="mon3" runat="server" ></asp:textbox><br>
<asp:label id="she2" runat="server"></asp:label><br>
<asp:button id="button1" runat="server" text="計算" onClick="button1_click"></asp:button>
</form>
</body>
</html>
===============================================================
我的問題是
我針對上面的年利率輸入整數的話
整個計算都很好
但是當我輸入小數點
卻跑步出來我的結果
我們老師的範例是...
貸款金額 12000
年利率 0.18
每月還款 2000
總共花了6月還清 本金加利息共12672.151元
我覺得是 val的問題
但我不知道要怎麼把字串轉換成小數
請大大幫忙一下囉....
--
╱￣￣￣╱╲ ╱╱▏ ╱╱▏╱ ╱▏ ／ ／▏ ／ ／＼ ╱╱▏╱╱▏
████◣╱ ▉ ∣ ▉ ︱ ▆▆▆▆／ ▅▅▅▅／ ◢▆▆◣／▏ ▊ ▏▋ ▏
▉ ／＼ ▉ ︱ ▉ ︱ ▊ ︱ ／▏ ▊ ▏ ▊ ▏▊ ▏ ▊ ▋▋ꈠ▏
████◣／▏▉▆▆▆▉ ︱ ▆▆▆▆／ ▊■■ █▅▅▊ ▏ ▊ ▋ ▋ ▏
█／갠▉ ▏ ▉ ︱ ▉ ︱ ╱▏ ▊ ▏ ▋ ▏▊ ▏ ▊▋▏▋ ▏
◢███◤ ▉／ ▉／ ▉▆▆▆／ ▊／ ▊／ ▊╱ ▊／ ▋╱ S
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.224.70.150
1F：推 cawQQ:d怎麼不改成single或double 10/13 14:55