Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
Solved

# Work Out APR in Vb.

Posted on 2014-03-07
Medium Priority
240 Views
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
Question by:Ed
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 2
• 2

LVL 83

Expert Comment

ID: 39912807
0

LVL 20

Expert Comment

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

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

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

ElrondCT earned 2000 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

ID: 39916028
Perfect, Thankyou
0

## Featured Post

Question has a verified solution.

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

ASP.Net to Oracle Connectivity Recently I had to develop an ASP.NET application connecting to an Oracle database.As I am doing it first time ,I had to solve several problems. This article will help to such developers  to develop an ASP.NET client…
Real-time is more about the business, not the technology. In day-to-day life, to make real-time decisions like buying or investing, business needs the latest information(e.g. Gold Rate/Stock Rate). Unlike traditional days, you need not wait for a fe…
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
In response to a need for security and privacy, and to continue fostering an environment members can turn to for support, solutions, and education, Experts Exchange has created anonymous question capabilities. This new feature is available to our Pr…
###### Suggested Courses
Course of the Month11 days, 17 hours left to enroll