关于数学函数的问题

Public Const Pi As Double = 3.14159265358979Public Function ArcTan(Y As Double, X As Double) As Double
    Dim t As Double
    
    If X = 0 Then
        If Y > 0 Then
            ArcTan = Pi / 2
        ElseIf Y = 0 Then
            ArcTan = 0
        Else
            ArcTan = Pi * 3 / 2
        End If
    Else
        t = Atn(Y / X)
        If X < 0 Then t = t + Pi
        If X > 0 And Y < 0 Then t = t + Pi * 2
        ArcTan = t
    End If
    
End FunctionPublic Function ArcSin(SinX As Double) As Double
    If SinX = 1 Then
        ArcSin = Pi / 2
    Else
    ArcSin = Atn(SinX / Sqr(-SinX * SinX + 1))
    End If
    
End Function