作者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