VBAでArcSin関数を計算/定義する方法は？

Question

arcsin関数（以下で定義）のVBAコードを実装する方法は？

：arcsin関数は、正弦関数の逆関数です。正弦が与えられた角度の角度を返します。すべての三角関数に対して、逆関数で働く逆関数があります。これらの逆関数は同じ名前ですが、前に '円弧'があります。 （arcsinボタンはasin、時にはsin-1と表示されることがあります）sinの逆数はarcsinなどです。「arcsin A」を見ると「sinがAの角度」と解釈されます

sin30 = 0.5手段：その罪である0.5が30度である角度30度のサインは0.5

0.5 =手段30アークサイン。

Answer 1

私は本当にここにあなたの質問を理解していません。

WorksheetFunction.Asin(myValue) 

---

アークサイン関数の使用

Dim myValue As Double 
myValue = 0.1234 

MsgBox CStr(WorksheetFunction.Asin(myValue)) 

ありあなたがアークサイン関数の結果を印刷することができます。アークサイン関数は、すでにあなたがそれを使用することができ、VBAに存在しますDoubleとしての値。

Answer 2

次のコードは、与えられた定義に基づいてARCSIN機能を実装するのに役立ちます：

Option Explicit 
    Public Const Pi As Double = 3.14159265358979 
    Private Function ArcSin(X As Double) As Double 
     If Abs(X) = 1 Then 
     'The VBA Sgn function returns an integer (+1, 0 or -1), 
     'representing the arithmetic sign of a supplied number. 
     ArcSin = Sgn(X) * Pi/2 
     Else 
     'Atn is the inverse trigonometric function of Tan, 
     'which takes an angle as its argument and returns 
     'the ratio of two sides of a right triangle 
     ArcSin = Atn(X/Sqr(1 - X^2)) 
     End If 
    End Function