VB Math udregning

De findes vist ikke, men man kan lave dem selv:
Public Function Arcsin(X As Double) As Double
Dim PI
PI = 3.14159265358979
If (Sqr(1 - X * X) <= 0.000000000001) And (Sqr(1 - X * X) >= -0.000000000001) Then
  Arcsin = PI / 2 * Sgn(X)
Else
  Arcsin = Atn(X / Sqr(-X * X + 1))
End If
End Function

Function Radianer(D As Double)
Dim PI
PI = 3.14159265358979
Radianer = (PI / 180) * D
End Function

super svar
jeg prøver lige at rode med funktionerne :)

vil du ligge et svar tjp :)

Here U R... :-)