Macro Calculo Equivalencia De Tasa

Dim Tipo As String
Dim TasaNominal As Integer, TasaEfectiva As Integer
Function TasaEquivalente(Capitalizacion, Pago, TasaNominal, TasaEfectiva, Tipo)
'Elaborado por Jorge Cuervo
'Modo deCapitalizar
If Capitalizacion = "Anual" Then
CAP = 1
End If
If Capitalizacion = "Semestral" Then
CAP = 2
End If
If Capitalizacion = "Cuatrimestral" ThenCAP = 3
End If
If Capitalizacion = "Trimestral" Then
CAP = 4
End If
If Capitalizacion = "Bimestral" Then
CAP = 6
End If
If Capitalizacion = "Mensual"Then
CAP = 12
End If
If Capitalizacion = "Quincenal" Then
CAP = 24
End If
If Capitalizacion = "Semanal" Then
CAP = 52
End If
If Capitalizacion ="Diaria" Then
CAP = 360
End If

'Modo de Pago
If Pago = "Anual" Then
PAG = 1
End If
If Pago = "Semestral" Then
PAG = 2
End If
If Pago ="Cuatrimestral" Then
PAG = 3
End If
If Pago = "Trimestral" Then
PAG = 4
End If
If Pago = "Bimestral" Then
PAG = 6
End If
If Pago = "Mensual" ThenPAG = 12
End If
If Pago = "Quincenal" Then
PAG = 24
End If
If Pago = "Semanal" Then
PAG = 52
End If
If Pago = "Diaria" Then
PAG = 360End If

'Relación de Equvalencia
If TasaEfectiva > 0 Then GoTo TE Else GoTo TN

TN:
'Modalidad
If Tipo = "Anticipada" Then
TasaEquivalente = (1 - (1 + TasaNominal / 100 * CAP / PAG) ^(-1 / PAG)) * PAG
End If

If Tipo = "Vencida" Then
TasaEquivalente = ((1 + TasaNominal / 100 * CAP / PAG) ^ PAG) - 1
End If

GoTo LasLine

TE:
'Modalidad
If Tipo = "Anticipada" ThenTasaEquivalente = ((1 - TasaEfectiva / 100) ^ (-PAG)) - 1
End If

If Tipo = "Vencida" Then
TasaEquivalente = (((1 + TasaEfectiva / 100) ^ (1 / PAG) - 1) * PAG)
End If
GoTo LasLine...