Solved

Work Out APR in Vb.

Posted on 2014-03-07
5
231 Views
Last Modified: 2014-03-09
I need help to work out APR

I can work out monthly repayments based on knowing the interest rate and number of repayments but now I need to work out the APR rate.  



Total repayable: £89,160
Loan : £70,000
Annual rate: 6.75%
Gross loan: £75,495


Can anyone give me some vb code to work out the APR from the information above?

Thanks
0
Comment
Question by:edjones1
  • 2
  • 2
5 Comments
 
LVL 83

Expert Comment

by:CodeCruiser
ID: 39912807
0
 
LVL 20

Expert Comment

by:ElrondCT
ID: 39913490
Don't need to be that complex for a loan with a single payment level. Use the Rate() method. The VB documentation gives a pretty clear example of how to use it. Note that the money in one direction or the other (payment or initial value) needs to be negative, and that you'll probably want to get a rate per month (assuming payments are made monthly), which then needs to be multiplied by 12.

I can't give you an exact formula, because you haven't provided all the information needed: We need to know the length of time the loan lasts and the payment per month (or other payment period).
0
 

Author Comment

by:edjones1
ID: 39913643
Here are the full details. I want to  work out the apr with the below variables on a button click event.  Thanks


Loan Advance:      £70,000.00
Term:      5 years
Monthly Payment:      £1,486.00
Total Repayable:      £89,160.00
Lender Fees:      £500.00
Broker Fee:      £4,995.00
Gross Loan:      £75,495.00
Annual rate: 6.75%
0
 
LVL 20

Accepted Solution

by:
ElrondCT earned 500 total points
ID: 39913739
Assuming the first payment is due one month after the loan is made:

        Dim APR As Double = Rate(5 * 12, 1486, -70000, 0, DueDate.EndOfPeriod) * 12

gives a result of .0996244, or 9.962%.

If you want to be able to solve for this based just on the loan, fees, and stated interest rate, then you first need to calculate the payment, and feed that into this function:

        Dim LoanPmt As Double = Math.Round(Pmt(0.0675 / 12, 5 * 12, -75495), 2)
        Dim APR As Double = Rate(5 * 12, LoanPmt, -70000) * 12
0
 

Author Closing Comment

by:edjones1
ID: 39916028
Perfect, Thankyou
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Many of us here at EE write code. Many of us write exceptional code; just as many of us write exception-prone code. As we all should know, exceptions are a mechanism for handling errors which are typically out of our control. From database errors, t…
Today I had a very interesting conundrum that had to get solved quickly. Needless to say, it wasn't resolved quickly because when we needed it we were very rushed, but as soon as the conference call was over and I took a step back I saw the correct …
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now