Public Shared Function Flaeche _
     (ByVal a As Double, b As Double, gamma As Double) As Double
 
     Dim cval As Double = Calculator.C(b, a, gamma)
     Dim sval As Double = S(a, b, cval)
     Return Math.Sqrt(sval * (sval - a) * (sval - b) * (sval - cval))
 
End Function

   Dim limits() As Double = {1, 0.5, 0.25, 0.1, 0.01, -0.0001}
   Dim adjust() As Double = {0.25, 0.1, 0.05, 0.01, 0.001, 0}
 
   sgn = Math.Sign(differenz)
   diff = Math.Abs(differenz)
 
   For i As Integer = 0 To limits.Length - 1
       If diff > limits(i) Then adj_value = adjust(i) : Exit For
   Next i
   adj_value *= sgn