// JavaScript Document
/***************************
(c) 2008 www.TUFaT.com
All Rights Reserved. Please
do not re-sell/re-distribute
this software.
***************************/
function stripNum(num) {

   num=num.toString();


   var len = num.length;
   var rnum = "";
   var test = "";
   var j = 0;

   var b = num.substring(0,1);
   if(b == "-") {
      rnum = "-";
   }

   for(i = 0; i <= len; i++) {

      b = num.substring(i,i+1);

      if(b == "0" || b == "1" || b == "2" || b == "3" || b == "4" || b == "5" || b == "6" || b == "7" || b == "8" || b == "9" || b == ".") {
         rnum = rnum + "" + b;

      }

   }

   if(rnum == "" || rnum == "-") {
      rnum = 0;
   }

   rnum = Number(rnum);

   return rnum;

}

function computeForm(form) {

if(form.lsCost.value == "" || form.lsCost.value == 0) {
   alert("Please enter cost of the car you are considering leasing on Line #1A.");
   form.lsCost.focus();
} else
//if(form.lsTaxRate.value == "" || form.lsTaxRate.value == 0) {
//   alert("Please enter the applicable sales tax rate on Line #2A.");
//   form.lsTaxRate.focus();
//} else
if(form.lsMonths.value == "" || form.lsMonths.value == 0) {
   alert("Please enter the term of the lease (number of months) on Line #7A.");
   form.lsMonths.focus();
} else
if(form.lsIntRate.value == "" || form.lsIntRate.value == 0) {
   alert("Please enter the new car lending rate.");
   form.lsIntRate.focus();
} else {


var VlsCost = stripNum(form.lsCost.value);
var VlsPaid = stripNum(form.lsTradeIn.value);
var VlsGrossCapCost = VlsCost;
var VlsDownPay = stripNum(form.lsDownPay.value);
var VlsTradeIn = eval(VlsCost) - eval(VlsPaid);
var VlsTotCapCostReduct = eval(VlsDownPay) + eval(VlsTradeIn);
var VlsNetCapCost = eval(VlsGrossCapCost) - eval(VlsTotCapCostReduct);
var VlsMonths = stripNum(form.lsMonths.value);
var VlsResale = stripNum(form.lsResale.value);
var VlsDeprecExp = eval(VlsCost) - eval(VlsResale);
var VlsTaxRate = stripNum(form.lsTaxRate.value);


if(VlsTaxRate >= 1) {
   VlsTaxRate /= 100;
}


var VlsIntRate = form.lsIntRate.value;
if(VlsIntRate >= 1) {
   VlsIntRate /= 100;
}
var VlsResidual = 0;
var VlsMonthlyDeprec = 0;
var VlsMoneyFactor = 0;
var VlsLeaseRate = 0;
var VlsMoPmt = 0;

VlsResidual = eval(VlsCost) - eval(VlsDeprecExp);
VlsMonthlyDeprec = (eval(VlsNetCapCost) - eval(VlsResidual)) / VlsMonths;

VlsMoneyFactor = VlsIntRate / 24;
VlsLeaseRate = (eval(VlsNetCapCost) + eval(VlsResidual)) * VlsMoneyFactor;
var VpreTaxPmt = eval(VlsMonthlyDeprec) + eval(VlsLeaseRate);
VlsMoPmt = VpreTaxPmt * (eval(1) + eval(VlsTaxRate));

var VtaxPmt = eval(VlsMoPmt) - eval(VpreTaxPmt);
var V1sFinalVal = eval(VlsNetCapCost)-eval(VlsResale);

document.getElementById("lsMoPmt").innerHTML = "$" + formatNumberDec(VlsMoPmt,2,1);
document.getElementById("capCost").innerHTML = "$" + formatNumberDec(VlsPaid,2,1);
document.getElementById("leasePrice").innerHTML = "$" + formatNumberDec(VlsNetCapCost,2,1);
document.getElementById("residValue").innerHTML = "$" + formatNumberDec(VlsResale,2,1);
document.getElementById("deprecFee").innerHTML = "$" + formatNumberDec(VlsMonthlyDeprec,2,1);
document.getElementById("leaseFee").innerHTML = "$" + formatNumberDec(VlsLeaseRate,2,1);
document.getElementById("preTaxPmt").innerHTML = "$" + formatNumberDec(VpreTaxPmt,2,1);
document.getElementById("taxPmt").innerHTML = "$" + formatNumberDec(VtaxPmt,2,1);

document.getElementById("div01").innerHTML='('+VlsCost+' MSRP minus discount)';
document.getElementById("div02").innerHTML='(above minus $ '+VlsDownPay+' down payment)';
document.getElementById("div03").innerHTML='(after '+VlsMonths+' months)';
document.getElementById("div04").innerHTML='over full loan ('+stripNum(form.lsTaxRate.value)+'% of '+formatNumberDec(V1sFinalVal,2,1)+')';

document.getElementById("results").style.display='block';

   }
    
}