Dim Fmt, FVal, Guess, PVal, Pago, TotPmts, Tipopago, APR
Const PERIODINI = 0, PERIODFIN = 1 ' Momento de los pagos.
Fmt = "##0.00" ' Formato de porcentaje.
FVal = 0 ' Normalmente 0 (crédito).
Guess = .1 ' Estimación del 10%.
PVal = InputBox("¿Cuánto dinero ha solicitado?")
Pago = InputBox("¿Cuánto debe pagar al mes?")
TotPmts = InputBox("¿Cuántos pagos mensuales debe realizar?")
Tipopago = MsgBox("¿Realiza los pagos al final del mes?", _
vbYesNo)
If Tipopago = vbNo Then Tipopago = PERIODINI Else Tipopago = PERIODFIN
APR = (Rate(TotPmts, -Pago, PVal, FVal, Tipopago, Guess) * 12) * 100
MsgBox "El tipo de interés es el " & Format(CInt(APR), Fmt) & " por ciento."