■ 語法主題：貸款利率計算
填寫下面表格
每月應付金額
付出利息總額
分期數(月)
年利率
貸款金額
計算結果
計算結果
NT$
■ 控制碼內容：
將下面複製至 <head> 區內
<!------------ 插入控制碼區段開始 ------------> <SCRIPT LANGUAGE="JavaScript"> <!--Hide JavaScript from Java-Impaired Browsers function test_it(entry) { if (entry.value!=null && entry.value.length!=0) { entry.value=""+ eval(entry.value); } computeForm(entry.form); } function computeForm(form) { if ((form.months.value==null || form.months.value.length==0) || (form.rate.value==null || form.rate.value.length==0) || (form.financed.value == null || form.financed.value.length==0)) { return; } if (!alrt_msg(form.months,1,480,"付款期數") || !alrt_msg(form.rate,.001,99,"利率") || !alrt_msg(form.financed,1000,10000000,"貸款金額")) { form.payment.value="所填數值不在計算範圍內 === 請重填"; return; } var i=form.rate.value; ffv=0; ffv+=form.financed.value; fmv=0; fmv+=form.months.value; if (i > 1.0) { // Hack to mostly correct floating point/binary conversion error i=(i/100.0)+.00001; var fmt=""; fmt+=i; fmt=fmt.substring(0,6) form.rate.value=fmt; } i/=12; var isn=1; for (var j=0;j<form.months.value;j++) isn=isn*(1+i); form.payment.value=(form.financed.value*isn*i)/(isn-1); fpv=0; fpv+=form.payment.value; var fmt=""; var add=9; fmt+=form.payment.value; for (var i=0;i<fmt.length;i++) { if (fmt.charAt(i)==".") { add=i+3; i=fmt.length; } } fmt=fmt.substring(0,add); fcalc=((fmv*fpv)-ffv); var fmtb=""; var add=9; fmtb+=fcalc; for (var i=0;i<fmtb.length;i++) { if (fmtb.charAt(i)==".") { add=i+3; i=fmtb.length; } } fmtb=fmtb.substring(0,add); form.payment.value=" NT$"+fmt+" NT$"+fmtb; } function reset_it(form) { form.months.value=""; form.rate.value=""; form.financed.value=""; form.payment.value=""; } function alrt_msg(entry,low,high,prompt) { prompt=prompt+" 輸入數值: "+entry.value; var scratch=entry.value; for (var i=0;i<scratch.length;i++) { var letter=scratch.substring(i,i+1); if ((letter<"0" || "9"<letter) && letter!='.') { alert(prompt); return false; } } var errtst=parseFloat(scratch) if (errtst<low || high<errtst) { alert("對不起. "+prompt+ " 不在計算範圍內" +" 從 "+low+" 到 "+high+"!"); return false; } entry.value=scratch; return true; } //--> </SCRIPT> <!------------ 插入控制碼區段結束 ------------>
■ 控制碼內容：
將下面複製至 <body> 標籤後
<!------------ 插入控制碼區段開始 ------------> <form method="POST"> <table border="1" cellpadding="0" width="480"> <tr> <td align="center" valign="top" colspan="3" bgcolor="#64D0FE">填寫下面表格</td> <td align="center" valign="top" bgcolor="#64D0FE">每月應付金額</td> <td align="center" valign="top" bgcolor="#64D0FE">付出利息總額</td> </tr> <tr> <td align="center" bgcolor="#F0FFFF">分期數(月)<br> </td> <td align="center" bgcolor="#F0FFFF">年利率<br> </td> <td align="center" bgcolor="#F0FFFF">貸款金額<br> </td> <td align="center" bgcolor="#F0FFFF">計算結果<br> </td> <td align="center" bgcolor="#F0FFFF">計算結果<br> </td> </tr> <tr> <td align="center"><input type="text" size="3" name="months" onchange="test_it(this)"> </td> <td align="center"><input type="text" size="5" name="rate" onchange="test_it(this)"></td> <td align="center">NT$<input type="text" size="8" name="financed" onchange="test_it(this)"></td> <td align="center" colspan="2"><input type="text" size="35" name="payment" onchange="test_it(this)"></td> </tr> <tr> <td align="center" colspan="2" bgcolor="#F0FFFF"><input type="reset" value="清 除" onclick="reset_it(this.form)"></td> <td align="center" colspan="3" bgcolor="#F0FFFF"><input type="button" value="計算每月需付金額與利息" onclick="computeForm(this.form)"></td> </tr> </table> </form> </td> </tr> </table> <!------------ 插入控制碼區段結束 ------------>