Sorry,

I cant seem to be able reply to the response to my question.

I am using Microsoft 97.
All the variables are Dim as double

Sub Macro1()
Dim t1 As Double
t1 = 0.05
Call FunctCalc(t1)
End Sub

Sub FunctCalc(ttt)
Dim t2 As Double
t2 = (ttt + 1) ^ (1 / 12)
End Sub

t2 = 1.00407412390531

This is not the correct answer

Correct Answer = 1.00407412378365

Can anyone figure out what the problem is.

Thanks for your help

Both Bernie Dietrich and I replied to the previous question which was
different example than this, but this example comes out as 1.00407412378365
as you expected.

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Jeff" wrote in message
...
Sorry,

I cant seem to be able reply to the response to my question.

I am using Microsoft 97.
All the variables are Dim as double

Sub Macro1()
Dim t1 As Double
t1 = 0.05
Call FunctCalc(t1)
End Sub

Sub FunctCalc(ttt)
Dim t2 As Double
t2 = (ttt + 1) ^ (1 / 12)
End Sub

t2 = 1.00407412390531

This is not the correct answer

Correct Answer = 1.00407412378365

Can anyone figure out what the problem is.

Thanks for your help