calendar= new Array;
calendar[0]= "January";
calendar[1]= "February";
calendar[2]= "March";
calendar[3]= "April";
calendar[4]= "May";
calendar[5]= "June";
calendar[6]= "July";
calendar[7]= "August";
calendar[8]= "September";
calendar[9]= "October";
calendar[10]= "November";
calendar[11]= "December";
calendar[12]= "";
function Loan()
{
var interest= 0;
var totalInt= 0;
var month;
// Grab the form vars
var basePrice= parseFloat(document.calcform.price.value);
var dpayment = parseFloat(document.calcform.dpayment.value);
if(isNaN(dpayment))
dpayment= 0;
var yearlyIR = parseFloat(document.calcform.interest.value);
var numYears = parseFloat(document.calcform.time.value);
var startmonth = parseInt(document.calcform.startm.value);
var year= parseInt(document.calcform.startyear.value);
// Now some prep calcs
var mortAmount= basePrice- dpayment;
// If payments are monthly, num periods= 12; if bi-monthly= 12*2 (i.e.24); if bi-weekly= 26
var numPeriods= parseInt(document.calcform.periods.value);
var numPayments= numYears* numPeriods;
var effIR= yearlyIR/ numPeriods;
var negmonth= -1* numPayments;
var deno= 1- (Math.pow(effIR+ 1,negmonth));
var numo= effIR;
var result= numo/ deno;
var monthPay= mortAmount* result;
win02= window.open("", "", "menubar=no,location=no,toolbar=no,resizeable=yes,scrollbars=yes,directories=no");
win02.window.resizeTo(600, 560);
open1=' \
theHomeslink.com -- Mortage Payment Schedule \
\
\
\
Your Mortgage Payment Calculations
'
win02.document.write(open1);
table1= '
\
Table 1 - Your Mortgage Details
\
\
Your Mortgage Details
\
\
\
Purchase price
' +formatCurrency(basePrice)+ '
\
Downpayment
' +formatCurrency(dpayment)+ '
\
Mortgaged Amount (the Principal)
' +formatCurrency(mortAmount)+ '
\
Interest rate applied
'+yearlyIR*100+ '%
\
Monthly payment ¹
' +formatCurrency(monthPay)+ '
\
Amortization Period (years)
' +numYears+ '
\
';
win02.document.write(table1);
/*
win02.document.write('Purchase price: $'+ basePrice);
win02.document.write(' Downpayment: $'+ dpayment);
win02.document.write(' Mortgaged Amount (the Principal): $'+mortAmount);
win02.document.write(' Interest rate applied: ' +yearlyIR*100+ '%');
win02.document.write(' Amount of each payment ¹: $'+Currency(monthPay));
win02.document.write(' Amortization Period (years): '+ numYears);
*/
table2= '
\
Table 2 - Your Mortgage Payment Table
\
\
Payment
\
Payment Date
\
Interest Paid
\
Principle Paid
\
Balance
\
';
win02.document.write(table2);
for(y= 1; y<= numPayments; y++)
{
//var interest= Houseprice* IR;
interest= mortAmount* effIR;
var principal= monthPay- interest;
mortAmount= Currency(mortAmount- principal);
interest= Currency(interest);
principal= Currency(principal);
totalInt+= parseInt(interest);
monthofpayment= getMonthName(startmonth);
// Alternate colours for every second row in the table
if( (y% 2)== 0)
win02.document.write('
');
else
win02.document.write('
');
win02.document.write('
' +y+ '
' + monthofpayment+ ', ' +year+ '
'+ formatCurrency(interest)+ '
'+ formatCurrency(principal) + '
'+formatCurrency(mortAmount)+ '
');
// startmonth must account for the various payments frequencies
if(numPeriods== 26)
{
// Then the bi-weekly payments are a pain in the arse!
// We don't display a month, and only increment the year after every 26th payment
startmonth= 12;
if(y%26== 0)
{
// We will only print the startmonth at the start of a new year's payment cycle
startmonth= parseInt(document.calcform.startm.value);
year++;
}
}
else
{
// For monthly, we can ad on every loop
if(numPeriods== 12)
startmonth++;
// If bi-monthly, then increment every second time through
if(numPeriods== 24)
{
if(y%2== 0)
startmonth++;
}
// If weekly, then every fourth time
if(numPeriods== 52)
{
if(y%4== 0)
startmonth++;
}
if(startmonth> 11)
{
startmonth= 0;
year++;
}
} // end else
} // end payment loop
win02.document.write("
");
tail1= '
¹ Monthly payment amount is based on a constant interest rate throughout \
the amortization period.
\