Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Aqui te mando los modulos que hacen eso, los pones en un modulo y listo Esta claro que X debe ser un valor entre -1 y 1 Espero que te sirva. Para mas funciones busca en la ayuda de Vb "Funciones matematicas complementarias" o algo por el estilo
'Calcula el ArcCos de un valor Public Function ArcCos(X As Double) As Double 'Coseno inverso Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) If X <> 1 And X <> -1 Then ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1) ElseIf X = 1 Then ArcCos = 0 '0 pi Else ArcCos = PI 'Definir PI como una constante en "Declaraciones" End If End Function
'Calcula el ArcSen de un valor Public Function ArcSen(X As Double) As Double 'Seno inverso Arcsin(X) = Atn(X / Sqr(-X * X + 1)) If X <> 1 And X <> -1 Then ArcSen = Atn(X / Sqr(-X * X + 1)) ElseIf X = 1 Then ArcSen = PI / 2 'PI Else ArcSen = -PI / 2 '3 / 2 * PI End If End Function