Devuelve un tipo de cambio Double que especifica la tasa interna de retorno de una serie de flujos de caja periódicos (pagos y recibos).
Sintaxis
TIR( valores () [, estimar ] )
La sintaxis de la función TIR tiene estos argumentos:
|
Argumento |
Descripción |
|
values () |
Requerido. Matriz de Doble que especifica los valores de flujo de caja. La matriz debe contener al menos un valor negativo (un pago) y un valor positivo (recibo). |
|
estimación |
Opcional. Variante que especifica el valor que calculará será devuelto por TIR. Si se omite, estimar es 0,1 (10%). |
Observaciones
La tasa interna de retorno es la tasa de interés recibida para una inversión formada por pagos y recibos que se producen en intervalos regulares.
La función TIR usa el orden de los valores dentro de la matriz para interpretar el orden de pagos y recibos. Asegúrese de escribir los valores de pago y recibo en la secuencia correcta. No es necesario corregir el flujo de efectivo para cada período, ya que es para una anualidad.
TIR se calcula por iteración. Comenzando con el valor de estimar, RR I recorre el cálculo hasta que el resultado es preciso en el 0,00001 por ciento. Si TIR no puede encontrar un resultado después de 20 intentos, falla.
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo, la función TIR devuelve la tasa interna de retorno para una serie de 5 flujos de caja contenidos en la matriz Values(). El primer elemento de matriz es un flujo de efectivo negativo que representa los costes de puesta en marcha de la empresa. Los 4 flujos de caja restantes representan flujos de caja positivos para los 4 años siguientes. Guess es la tasa interna estimada de retorno.
Dim Guess, Fmt, RetRate, Msg
Static Values(5) As Double ' Set up array.
Guess = .1 ' Guess starts at 10 percent.
Fmt = "#0.00" ' Define percentage format.
Values(0) = -70000 ' Business start-up costs.
' Positive cash flows reflecting income for
' four successive years.
Values(1) = 22000 : Values(2) = 25000
Values(3) = 28000 : Values(4) = 31000
' Calculate internal rate.
RetRate = IRR(Values(), Guess) * 100
Msg = "The internal rate of return for these " & _
"five cash flows is "
Msg = Msg & Format(RetRate, Fmt) & " percent."
MsgBox Msg ' Display internal return rate.
