Formula

[bplus]

"How?"

Don't tell, offer the 2 choices:

Code: (Select All)

Print ArcSinDegrees$(Sin(_Pi / 4))
Print ArcSinDegrees$(Sin(_Pi(3 / 4)))
Print ArcSinDegrees$(Sin(_Pi(5 / 4)))
Print ArcSinDegrees$(Sin(_Pi(7 / 4)))

Function ArcSinDegrees$ (xRadians)
    a1 = _R2D(_Asin(xRadians))
    If a1 > 0 Then
        diff = 90 - a1
        a2 = 90 + diff
    Else
        diff = -90 - a1
        a2 = -90 + diff + 360
        a1 = a1 + 360
    End If
    ArcSinDegrees$ = _Trim$(Str$(a1)) + " or " + _Trim$(Str$(a2))
End Function