Apéndice de fórmulas para VBA

Apéndice de fórmulas para VBA

• Function Factor_descuento(r As Double, t As Double) As Double

'Esta fórmula calcula el factor de valor presente dada una tasa anual de rendimiento y un plazo (todo en la misma unidad de medida)

'r es la tasa anual efectiva

't es el plazo de descuento en años

Factor_descuento = (1 + r) ^ (-t)

End Function

• Function Equivalencia_de_tasas(r As Double, m As Integer, p As Integer) As Double

'Esta función obtiene la tasa anual (nominal o efectiva) equivalente a r.

'm es la fec de cap e r

'p es la frec e cap de la tasa a obtener

Equivalencia_de_tasas = ((1 + r / m) ^ (m / p) - 1) * p

End Function

• Function Equivalencia_tasas_continuas(tasa As Double, p As Integer, cond As Boolean) As Double

'Si cond=verdadero, se calcula la equivalencia de nominal a continua

'Si cond=falso, se calcula la equivalencia de continua a nominal

If cond = True Then

 Equivalencia_tasas_continuas = Log((1 + tasa / p) ^ (p))

Else

 Equivalencia_tasas_continuas = (Exp(tasa / p) - 1) * p

End If

End Function

• Function VP_Anualidad(r As Double, n As Integer) As Double

'r y n ya deben estar en la misma unidad de medida

VP_Anualidad = (1 - (1 + r) ^ (-n)) / r

End Function

• Function Reinversión_Flujos(C As Double, r As Double, n As Integer) As Double

'r debe ser TAE

Acumulado = C

For i = 1 To n

 Acumulado = Acumulado * (1 + r) ^ (1 / 12)

Next

Reinversión_Flujos = Acumulado

End Function

Financiamiento con deuda formulas:

• Function Precio_Bono(Nom As Double, F As Double, c As Double, r As Double, m As Double, n As Integer) As Double

'c y r se introducen en términos anuales

Suma_Flujos = 0

For t = 1 To n

 Cupón_Descontado = (c * F / m) * (1 + r / m) ^ (-t)

 Suma_Flujos = Suma_Flujos + Cupón_Descontado

Next

Precio_Bono = Suma_Flujos + Nom * (1 + r / m) ^ (-n)

End Function

• Function DM_Bono(Nom As Double, F As Double, c As Double, r As Double, m As Double, n As Integer) As Double

'c y r se introducen en términos anuales

Suma_Flujos = 0

For t = 1 To n

 Cupón_Descontado = t * (1 / m) * (c * F / m) * (1 + r / m) ^ (-t - 1)

 Suma_Flujos = Suma_Flujos + Cupón_Descontado

Next

P = Precio_Bono_3(Nom, F, c, r, m, n)

DM_Bono = (Suma_Flujos + n * (1 / m) * Nom * (1 + r / m) ^ (-n - 1)) / P

End Function

...