Ajuda do LibreOffice 25.2
Função trigonométrica que retorna o arco-tangente de uma expressão numérica. O valor de retorno está na faixa de -Pi/2 a +Pi/2.
O arco tangente é o inverso da função tangente. A função Atn retorna o ângulo "Alfa", expresso em radianos, usando a tangente desse ângulo. A função também pode retornar o ângulo "Alfa" comparando a razão entre o comprimento do lado oposto ao ângulo e o comprimento do lado adjacente ao ângulo em um triângulo retângulo.
Atn(lado oposto ao ângulo/lado adjacente ao ângulo)= Alfa
        Atn (Numero As Double) As Double
    Double
Numero: qualquer expressão numérica que represente a razão entre dois lados de um triângulo retângulo. A função Atn retorna o ângulo correspondente em radianos (arco tangente).
Para converter radianos em graus, multiplique radianos por 180/pi.
grau=(radiano*180)/pi
radiano=(grau*pi)/180
Pi é a constante do círculo com valor arredondado de 3.14159. Pi é uma constante matemática do Basic.
        ' O exemplo a seguir calcula, para um triângulo retângulo,
        ' o ângulo Alpha a partir da tangente do ângulo Alpha:
        Sub ExampleAtn
        ' Pi = 3,14159 arredondado é uma constante predefinida
        Dim d1 As Double
        Dim d2 As Double
            d1 = InputBox("Digite o comprimento do lado adjacente do ângulo: ","Adjacent")
            d2 = InputBox("Digite o comprimento do lado oposto do ângulo: ","Oposto")
            Print "O ângulo Alpha é "; (atn (d2/d1) * 180 / Pi); " graus"
        End Sub