Contenido

# Función Tan

Calcula la tangente de un ángulo. El ángulo se devuelve en radianes.

Using the angle Alpha, the Tan function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.

Tan(Alpha) = side opposite the angle/side adjacent to angle

### Sintaxis:

    Tan (Number As Double) As Double

### Valor de retorno:

Double

### Parámetros:

Número: Cualquier expresión numérica de la que se desee calcular la tangente (en radianes).

To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.

degrees=(radians*180)/Pi

radians=(degrees*Pi)/180

El valor aproximado de Pi es 3,141593.

### Códigos de error:

5 Llamada a procedimiento no válida

### Ejemplo:

    ' En este ejemplo, la entrada siguiente es posible para un triángulo rectángulo:
    ' El lado opuesto al ángulo y éste (en grados) para calcular la longitud del lado adyacente al ángulo:
    Sub ExampleTangens
    ' Pi = 3,1415926 es una variable predefinida
    Dim d1 As Double
    Dim dAlpha As Double
        d1 = InputBox("Digite la longitud del lado opuesto al ángulo: ","opuesto")
        dAlpha = InputBox("Escriba el ángulo Alfa (en grados): ","Alfa")
        Print "la longitud del lado adyacente al ángulo es"; (d1 / tan (dAlpha * Pi / 180))
    End Sub

Temas relacionados

Función Atn

Cos Function

Sin Function