<% dim monthlyPayment dim principal dim annualInterest dim monthlyInterest dim loan_Months dim loan_Years dim current_monthly_interest dim monthly_principal dim new_principal dim piti dim base dim mbase dim annualTax dim annualInsurance principal = Request.Form("principal") annualInterest = Request.Form("annualInterest") loan_Years = Request.Form("loan_Years") annualTax = Request.Form("annualTax") annualInsurance = Request.Form("annualInsurance") if principal > 0 then loan_Months = loan_Years * 12 monthlyInterest = annualInterest / (12*100) base = 1 mbase = 1 + monthlyInterest For i = 0 to loan_Months base = base * mbase Next monthlyPayment = principal * (monthlyInterest / (1 - (1 + monthlyInterest)^ -loan_Months)) If Request.Form("annualTax") <> "" AND Request.Form("annualInsurance") <> "" Then piti = principal * monthlyInterest / (1-(1/base)) + (annualTax/12) + (annualInsurance/12) Else piti = 0 End IF end if %>
Mortgage Calculator
Mortgage Amount $ ">
Mortgage Term "> years
Interest Rate "> % per year
Annual Tax ">  
Annual Insurance ">  
Monthly Payment(PI) $
Monthly Payment(PITI) $
Rate table updated
AllieMae.org - Rate Watch Table
Mortgage Definitions:
  • Mortgage Amount - The original or expected balance for your mortgage.
  • Mortgage Term - The number of years over which you will repay this loan.
  • Interest Rate - The annual interest rate for this mortgage.
  • Annual Tax - The annual amount you expect to pay in property taxes.
  • Annual Insurance - The annual amount you expect to pay in home owners insurance.
  • Monthly Payment(PI) - The monthly principal and interest payment.
  • Monthly Payment(PITI) - The monthly payment including pricipal, interest, home owners insurance and property taxes.
<% dim I dim J dim months_left dim interestArray(12) dim balanceArray(12) months_left = loan_Months J=1 if principal > 0 then %> Amortization Table - Principal: $ <%= principal %> - Mortgage Term: <%= loan_Years %> years - Interest Rate: <%= annualInterest %>% <% Do While months_left > 0 %> <% For I = 1 To 12 %> <% J=J+1 Next %> <% For I = 1 To 12 %> <% Next %> <% For I = 1 To 12 current_monthly_interest = principal * monthlyInterest monthly_principal = monthlyPayment - current_monthly_interest new_principal = principal - monthly_principal principal = new_principal interestArray(I) = current_monthly_interest balanceArray(I) = new_principal months_left = months_left-1 %> <% Next %> <% For I = 1 To 12 %> <% Next %> <% For I = 1 To 12 %> <% Next %>
Month<%= J %>
Payment:<%= Round(monthlyPayment,2) %>
Principal Paid:<%= Round(monthly_principal,2) %>
Interest Paid:<%= Round(interestArray(I),2) %>
Balance:<%= Round(balanceArray(I),2) %>
<% loop end if %>
Charlotte North Carolina Real Estate