What is not write about my program? Can someone help me solve this. Financial Prog.

[Kbecker]

My program is supposed to determine if a user qualifies for a loan or not. I think I did all the coding right, with the write equations, ect. But it always says that it has performed some type of "Arithmatic Overflow"

My teacher says that if you put in salary of 8,000. Sales price - 200000, downpayment - 5000, interest - 7%, term - 360, and debt - 500. It should qualify for a loan. But it still says the Arithmatic Overflow. I was wondering if anyone good look at my coding to see whats wrong with it

The program file is attached in a zip.

[techgnome]

An overflow happens when you take a large number and try to stuff it into something too small, like trying to stuff a Long into an Integer.

Sounds like there is some math going on that's causing it to overflow its bounds. Try running through, breaking on all errors, and see where the error happens.

TG

[BradRoberts]

Your problem stems from the usage of integer variables for your calculations when some, or all of them need to be some sort of floating point data type. Ex, trying to stuff/convert .07 into an integer field gives you a zero.

Try the other solution listed here and you will see.

[Kbecker]

I don't get it changed them all to longs and still doesn't work.. please help!

[nemaroller]

not longs... doubles

[Kbecker]

still not work..

[nemaroller]

I just downloaded your project, changed all those variables declared at the top to doubles, and i got no errors.

Dim intGross As Double
    Dim intDebt As Double
    Dim intRate As Double
    Dim intTerm As Double
    Dim intDownPayment As Double
    Dim intLoanAmount As Double
 
    'This dims the variables that will be used to complete the equation
    Dim intGross28 As Double
    Dim intGross36 As Double
    Dim intSalesPrice As Double
    Dim intR As Double
    Dim intN As Double
    Dim intP As Double
    Dim intPMT As Double
    Dim intTaxes As Double
    Dim intDebtRatio As Double