jj07.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 632 行 · 第 1/2 页
ASP
632 行
y=chknum(document.tt.DCapital.value);
if (y==0)
{
alert("请输入正确的数字!");
document.tt.DCapital.focus();
return false;
}
if (document.tt.BYear.value=="") //判断是否输入了计划提前取款日期
{
alert("请将计划提前取款日期填写完整");
document.tt.BYear.focus();
return false;
}
y=chknum(document.tt.BYear.value); //判断计划提前取款日期的年是否为数字
if (y==0)
{
alert("请输入正确的数字!");
document.tt.BYear.focus();
return false;
}
if ((document.tt.BYear.value.length)!=4) //判断计划提前取款日期的年是否是四位
{
alert("请将现行存入日期用四位数填写");
document.tt.BYear.focus();
return false;
}
if (STime<19940610)
{
alert("存入日期需在1994年6月10日后");return false;
}//所选日期太早
if (BTime<19990610)
{
alert("计划提前取款日期需在1999年6月10日后");return false;
}//所选日期太早
if (BTime<STime)
{
alert("计划提前取款日期需在存入日期后");return false;
}//计划提前取款日期需在存入日期后
SRate=getlilv(z); //取得年利率
m=document.tt.LTime.options[document.tt.LTime.selectedIndex].value/12; //现定期存款期限，以年为单位
deserved1=DCapital*SRate*m; //计划取款金额在到期后本应得的利息
year=(document.tt.BYear.value-parseInt(document.tt.SYear.value))*360;
day=(year+BMonth*30+BDay*1)-(SMonth*30+SDay*1);
deserved2=DCapital*DRate*day/360;
losing1=parseInt(deserved1-deserved2);
day=document.tt.LTime.value/12-day/360
if (day<=0.5)
LRate=0.0477
else
LRate=0.0504
losing2=parseInt(DCapital*LRate*day);
strDyn=" 您的明智选择应是：";
if (losing1>losing2)
{
strDyn=strDyn+"<font color=#990000>质押贷款</font>";
losing=losing1-losing2;
}
else
{
strDyn=strDyn+"<font color=#990000>提前支取</font>";
losing=losing2-losing1;
}
strDyn=strDyn+",由此您可节省<font color=#990000>";
strDyn=strDyn+losing;
strDyn=strDyn+"</font>元";
strDyn=strDyn+"</td></tr>";
strDyn=strDyn+"</table>";
strDyn=strDyn+"";
strDyn=strDyn+"</td><td height=291 width=36></td></tr></table>";
document.tt.ss.value=losing1;
document.tt.sss.value=losing2;
DynArea.innerHTML=strDyn;
}
function getlilv(z){
var y;
y=document.tt.LTime.options[document.tt.LTime.selectedIndex].value;
lilv1=new makeArray(6); // 99,6,10,后的利率表
lilv1[1]=0.0171;
lilv1[2]=0.0189;
lilv1[3]=0.0198;
lilv1[4]=0.0225;
lilv1[5]=0.0252;
lilv1[6]=0.0279;
lilv2=new makeArray(6); // 98,12,7,
lilv2[1]=0.0279;
lilv2[2]=0.0333;
lilv2[3]=0.0378;
lilv2[4]=0.0396;
lilv2[5]=0.0414;
lilv2[6]=0.0450;
lilv3=new makeArray(6); //98,7,1,
lilv3[1]=0.0279;
lilv3[2]=0.0396;
lilv3[3]=0.0477; //100
lilv3[4]=0.0486;
lilv3[5]=0.0495;
lilv3[6]=0.0522;
lilv4=new makeArray(6); //98,3,25,
lilv4[1]=0.0288;
lilv4[2]=0.0414;
lilv4[3]=0.0522;
lilv4[4]=0.0558;
lilv4[5]=0.0621;
lilv4[6]=0.0666;
lilv5=new makeArray(6); //97,10,23,
lilv5[1]=0.0288;
lilv5[2]=0.0414;
lilv5[3]=0.0567;
lilv5[4]=0.0594;
lilv5[5]=0.0621;
lilv5[6]=0.0666;
lilv6=new makeArray(6); //96,8,23,
lilv6[1]=0.0333;
lilv6[2]=0.0540;
lilv6[3]=0.0747;
lilv6[4]=0.0792;
lilv6[5]=0.0828;
lilv6[6]=0.0900;
lilv7=new makeArray(6); //96,5,1,
lilv7[1]=0.0486;
lilv7[2]=0.0720;
lilv7[3]=0.0918;
lilv7[4]=0.0990;
lilv7[5]=0.1080;
lilv7[6]=0.1206;
lilv8=new makeArray(6); //93,7,11,
lilv8[1]=0.0666;
lilv8[2]=0.0900;
lilv8[3]=0.1098;
lilv8[4]=0.1170;
lilv8[5]=0.1224;
lilv8[6]=0.1386;
lilv9=new makeArray(6); //93,5,15,
lilv9[1]=0.0486;
lilv9[2]=0.0720;
lilv9[3]=0.0918;
lilv9[4]=0.0990;
lilv9[5]=0.1080;
lilv9[6]=0.1206;
if(STime>=19990610){ //判用户存款日期是否在99年6月10日以后
if(y==3) z=lilv1[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv1[2]
else if(y==12) z=lilv1[3]
else if(y==24) z=lilv1[4]
else if(y==36) z=lilv1[5]
else if(y==60) z=lilv1[6]
}
else if(STime>=19981207){ //判用户存款日期是否在1998.12.7以后
if(y==3) z=lilv2[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv2[2]
else if(y==12) z=lilv2[3]
else if(y==24) z=lilv2[4]
else if(y==36) z=lilv2[5]
else if(y==60) z=lilv2[6]
}
else if(STime>=19980701){ //判用户存款日期是否在1998.7.1以后
if(y==3) z=lilv3[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv3[2]
else if(y==12) z=lilv3[3]
else if(y==24) z=lilv3[4]
else if(y==36) z=lilv3[5]
else if(y==60) z=lilv3[6]
}
else if(STime>=19980325){ //判用户存款日期是否在1998.3.25以后
if(y==3) z=lilv4[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv4[2]
else if(y==12) z=lilv4[3]
else if(y==24) z=lilv4[4]
else if(y==36) z=lilv4[5]
else if(y==60) z=lilv4[6]
}
else if(STime>=19971023){ //判用户存款日期是否在1997.10.23以后
if(y==3) z=lilv5[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv5[2]
else if(y==12) z=lilv5[3]
else if(y==24) z=lilv5[4]
else if(y==36) z=lilv5[5]
else if(y==60) z=lilv5[6]
}
else if(STime>=19960823){ //判用户存款日期是否在1996.8.23以后
if(y==3) z=lilv6[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv6[2]
else if(y==12) z=lilv6[3]
else if(y==24) z=lilv6[4]
else if(y==36) z=lilv6[5]
else if(y==60) z=lilv6[6]
}
else if(STime>=19960501){ //判用户存款日期是否在1996.5.1以后
if(y==3) z=lilv7[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv7[2]
else if(y==12) z=lilv7[3]
else if(y==24) z=lilv7[4]
else if(y==36) z=lilv7[5]
else if(y==60) z=lilv7[6]
}
else if(STime>=19930711){ //判用户存款日期是否在1993.7.11以后
if(y==3) z=lilv8[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv8[2]
else if(y==12) z=lilv8[3]
else if(y==24) z=lilv8[4]
else if(y==36) z=lilv8[5]
else if(y==60) z=lilv8[6]
}
else if(STime>=19930515){ //判用户存款日期是否在1993.5.15以后
if(y==3) z=lilv8[1] //根据用户所选存期获取相应利率
else if(y==6) z=lilv8[2]
else if(y==12) z=lilv8[3]
else if(y==24) z=lilv8[4]
else if(y==36) z=lilv8[5]
else if(y==60) z=lilv8[6]
}
return z;
}
function chknum(k) //判断输入的值是否含有非数字字符串
{
var checkOK = "0123456789-.";
var checkStr = k;
var allValid=true;
var decPoints=0;
var allNum="";
var x=1;
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i); //检查输入字符串是否含有除'0123456789.'以外的字符
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch == ".") //把输入字符串逐字符存入allNum中
{
allNum += ".";
decPoints++; //50
}
else
allNum += ch;
}
if (!allValid) //如果输入字符串含有非数值字符,则给出警告
{
// alert("请输入数值！");
// document.rse.elements[kk].focus();
x=0; //x=0表示输入非法数据，不能提交
return x;
}
if (decPoints > 1) //如果字符串含有一个以上的".",则提示输入无效
{
// alert("请输入有效数值！");
// document.rse.elements[kk].focus();
x=0;
return x;
}
}
//-->
</SCRIPT>
<INPUT class=table name=cancel type=reset value=重 输> </TD>
</TR>
<TR bgColor=#f7f7f7>
<TD height="20" colSpan=2 bgcolor="#76AE00"> <font color="#FFFFFF">计算结果</font></TD>
</TR>
<TR bgColor=#f7f7f7>
<TD height="20" colSpan=2 bgcolor="#FFFFFF"> 提前支取利息损失为：
<INPUT name=ss size=15>
人民币 (元)</TD>
</TR>
<TR bgColor=#f7f7f7>
<TD height="20" colSpan=2 bgcolor="#FFFFFF"> 质押贷款利息支出为：
<INPUT name=sss size=15>
人民币 (元)</TD>
</TR>
<TR bgColor=#f7f7f7>
<TD width="100%" height="20" colSpan=2 bgcolor="#FFFFFF"><div id=DynArea></div></TD>
</TR>
</FORM>
</TABLE>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?