I used a special VBA defined calculations in Excell under 2003 version, and it was working without problem. When I run this under 2007, isn't working. Why?
The calculations looks like this:
Function AngleSol(B As Double) As Double
' Find the value F such that F - Tan(F) = B
Dim Epsilon As Double
Dim Counter As Double
Dim F As Double
F = 0.1
Epsilon = Tan(F) - F - B
While (Abs(Epsilon) > 0.00000000001) And Counter < 100000
F = F * (1 - Epsilon)
Epsilon = Tan(F) - F - B
Counter = Counter + 1
Wend
AngleSol = F
End Function
The calculations looks like this:
Function AngleSol(B As Double) As Double
' Find the value F such that F - Tan(F) = B
Dim Epsilon As Double
Dim Counter As Double
Dim F As Double
F = 0.1
Epsilon = Tan(F) - F - B
While (Abs(Epsilon) > 0.00000000001) And Counter < 100000
F = F * (1 - Epsilon)
Epsilon = Tan(F) - F - B
Counter = Counter + 1
Wend
AngleSol = F
End Function