Mortgage / Loan / APR
Note;- AER Relates to Calculations for Saving Accounts. APR Relates to Loans Mortgages etc
The Method for Deducing from first principles an equation for APR (Annualised Percentage Rate) is shown Below:-
Example:- Apply an interest rate to a loan every Period and then deduct from that loan a set amount every Period until Loan Repaid :-
Borrow £100 for 3 year @ 10% Interest with repayments of "S" every month.
Note:- Interest Rate of 10% is used in the equation as = 1.1 because we want to know the Total sum on the capital + the Interest therefore the sum of the (Loan + Interest) Equals :-
(100 x 10%) +100 = 100(0.1 +1) = 100 x 1.1 (Q.E.D)
1st Year (100 x 1.1) - S.
2nd Year [( 100x1.1)- S) x (1.1 - S)]
3rd Year (100 x 1.1^2 - 1.1S - S) x (1.1- S)
This Equals 100 x 1.1^3 - S 1.1^2 - S1.1 - S = 0 (Eqn 1)
Multiply this equation by the common factor 1.1
This equals 100 x 1.1^4 - S1.1^3 - S1.1^2 - S1.1 = 0 (Eqn 2)
Subtract Eqn (1) from Eqn (2) by cross cancelling
This leaves:- 100 x 1.1^4 - 100 x 1.1^3 - S1.1^3 + S = 0 note:- Minus, MinusS (- - S) = + S
100 x 1.1^4 - 100 x 1.1^3 = S1.1^3 - S
Therefore:- S = 100(1.1^4 - 1.1 ^3)
(1.1^3 - 1)
Rearrange in standard form:-
P = Principle. r = Annual Interest Rate. R = (1+ r). S = Periodic repayment.
n = Period (mth etc.)
S = P ( R^(n+1) - R^n )
(R^n) - 1)
Note:- When dealing with Loans and Mortgages the normal repayment period is a month.
In these cases the 12 root of R would be used to represent a period of one month
In the example above 1.1 would be replaced by 1.1(1/ 12) = 1.00797414
The period "n" would read 36 equalling 3 x 12.
In the case (n + 1). 1 is always 1 irrespective of whether the periods are months or years.
NB:- For Payments in advance, alter the bottom line of the equation to:- R^(n+1) - R
Dim P As Double, r As Double, n As Double, S As Double, oRep As Double
Dim Sn As Double, np As Integer, k As Double, oPer As String
P = [a1].Value
oRep = [B1].Value
k = [C1].Value
oPer = [d1].Value
If oPer = "m" Then
r = ((1 + k) ^ (1 / 12)) - 1
ElseIf oPer = "y" Then
r = (1 + k)
End If
Do Until S <= oRep And Sn >= oRep
On Error Resume Next
n = n + 1
S = P * (((1 + r) ^ (n + 1)) - ((1 + r) ^ n)) / _
(((1 + r) ^ n) - 1)
If n > 1 Then
np = n - 1
Sn = P * (((1 + r) ^ (np + 1)) - ((1 + r) ^ np)) / _
(((1 + r) ^ np) - 1)
End If
If n > 10000 Then
MsgBox "Solution Not Found, ""Data Maybe invalid"""
Exit Sub
End If
Loop
MsgBox "The Match for the repayment fig was :- " & Sn
MsgBox "Number of terms equals " & n - 1
Thanks, I've found the underlying formula. It is:
=Log10(Payment/(Payment+Capital+Rate))/Log10(1+Rate)
Works a treat!
Thanks, I've found the underlying formula. It is:
=Log10(Payment/(Payment+Capital+Rate))/Log10(1+Rate)
Works a treat!