Quadratwurzel ohne Sqrt() Funktion ziehen

1
2
3
4
5
6
7
8
9
10
11

Public Function SquareRoot(ByVal Expression As Double) As Double
    Dim Number As Double = 1
    Dim Tmp As Double = 0

    For i As Long = 1 To CLng(Expression)
        Number = 0.5 * (Number + (Expression / Number))
        If Tmp = Number Then Return Number
        Tmp = Number
    Next
    Return Number
End Function