//*******************************************
//DO NOT REMOVE THIS COPYWRITE INFO!
//Car Lease Calculator
//2006 Daniel C. Peterson ALL RIGHTS RESERVED
//Created: 12/05/2006
//Last Modified: 12/05/2006
//This script may not be copied, edited, distributed or reproduced
//without express written permission from
//Daniel C. Peterson of Web Winder Website Services
//For commercial use rates, contact:
//Dan Peterson:
//Web Winder Website Services
//P.O. Box 11
//Bemidji, MN  56619
//dan@webwinder.com
//http://www.webwinder.com
//Commercial User Licence #:5782-1237-144-1198
//Commercial Licence Date:2008-09-11
//*******************************************



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 formatNumberDec(num, places, comma) {

var isNeg=0;

    if(num < 0) {
       num=num*-1;
       isNeg=1;
    }

    var myDecFact = 1;
    var myPlaces = 0;
    var myZeros = "";
    while(myPlaces < places) {
       myDecFact = myDecFact * 10;
       myPlaces = eval(myPlaces) + eval(1);
       myZeros = myZeros + "0";
    }
    
	onum=Math.round(num*myDecFact)/myDecFact;
		
	integer=Math.floor(onum);

	if (Math.ceil(onum) == integer) {
		decimal=myZeros;
	} else{
		decimal=Math.round((onum-integer)* myDecFact)
	}
	decimal=decimal.toString();
	if (decimal.length<places) {
        fillZeroes = places - decimal.length;
	   for (z=0;z<fillZeroes;z++) {
        decimal="0"+decimal;
        }
     }

   if(places > 0) {
      decimal = "." + decimal;
   }

   if(comma == 1) {
	integer=integer.toString();
	var tmpnum="";
	var tmpinteger="";
	var y=0;

	for (x=integer.length;x>0;x--) {
		tmpnum=tmpnum+integer.charAt(x-1);
		y=y+1;
		if (y==3 & x>1) {
			tmpnum=tmpnum+",";
			y=0;
		}
	}

	for (x=tmpnum.length;x>0;x--) {
		tmpinteger=tmpinteger+tmpnum.charAt(x-1);
	}


	finNum=tmpinteger+""+decimal;
   } else {
      finNum=integer+""+decimal;
   }

    if(isNeg == 1) {
       finNum = "-" + finNum;
    }

	return finNum;
}


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 {


//CALC LEASE COSTS

var VlsCost = stripNum(form.lsCost.value);

var VlsGrossCapCost = VlsCost;

var VlsDownPay = stripNum(form.lsDownPay.value);

var VlsTradeIn = stripNum(form.lsTradeIn.value);


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);

form.lsMoPmt.value = "$" + formatNumberDec(VlsMoPmt,2,1);

form.capCost.value = "$" + formatNumberDec(VlsGrossCapCost,2,1);

form.leasePrice.value = "$" + formatNumberDec(VlsNetCapCost,2,1);

form.residValue.value = "$" + formatNumberDec(VlsResale,2,1);

form.deprecFee.value = "$" + formatNumberDec(VlsMonthlyDeprec,2,1);

form.leaseFee.value = "$" + formatNumberDec(VlsLeaseRate,2,1);

form.preTaxPmt.value = "$" + formatNumberDec(VpreTaxPmt,2,1);

form.taxPmt.value = "$" + formatNumberDec(VtaxPmt,2,1);


//END VARIFICATION IF STATEMENT
   }
    
}


function clearResults(form) {

form.lsMoPmt.value = "";
form.capCost.value = "";
form.leasePrice.value = "";
form.residValue.value = "";
form.deprecFee.value = "";
form.leaseFee.value = "";
form.preTaxPmt.value = "";
form.taxPmt.value = "";


}