//*******************************************
//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 #:5016-1145-144-1102
//Commercial Licence Date:2007-10-28
//*******************************************



function stripNum(num) {

var iPercent
var iDollar
var iSpace
var iComma
var numLength = num.length

//lalalla Line #114

if(numLength > 0) {

   num=num.toString();

   iPercent = num.indexOf("%");
   if(iPercent >= 0) {
      num=num.substring(0,iPercent) + "" + num.substring(iPercent + 1,numLength);
      numLength=num.length;
      }
   iDollar = num.indexOf("$");
   if(iDollar >= 0) {
      num=num.substring(0,iDollar) + "" + num.substring(iDollar + 1,numLength);
      numLength=num.length;
      }
   iSpace = num.indexOf(" ");
   if(iSpace >= 0) {
      num=num.substring(0,iSpace) + "" + num.substring(iSpace + 1,numLength);
      numLength=num.length;
      }
   iComma = num.indexOf(",");
   if(iComma >= 0) {
      while(iComma >=1) {
         num=num.substring(0,iComma) + "" + num.substring(iComma + 1,numLength);
         numLength=num.length;
         iComma = num.indexOf(",");
      }
      }

      num = eval(num);


} else {

num = 0;

}

return num;

}




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 = "";


}