Módulo Financial (Visual Basic)
Actualización: noviembre 2007
El módulo Financial contiene procedimientos empleados para realizar operaciones financieras.
Comentarios
Este módulo admite los miembros de biblioteca en tiempo de ejecución de Visual Basic que realizan cálculos financieros como depreciación, valores presentes y futuros, tipos de interés, tasas de devolución y pagos.
Miembros
|
|
|
Ejemplo
En este ejemplo, se utiliza la función Rate para calcular el tipo de interés de un préstamo, dados el número total de pagos (TotPmts), la cantidad del pago del préstamo (Payment), el valor actual o principal del préstamo (PVal), el valor futuro del préstamo (FVal), un número que indica si el pago vence al principio o al final del período de pago (PayType) y una aproximación del tipo de interés previsto (Guess).
Sub TestRate()
Dim PVal, Payment, TotPmts, APR As Double
Dim PayType As DueDate
' Define percentage format.
Dim Fmt As String = "##0.00"
Dim Response As MsgBoxResult
' Usually 0 for a loan.
Dim FVal As Double = 0
' Guess of 10 percent.
Dim Guess As Double = 0.1
PVal = CDbl(InputBox("How much did you borrow?"))
Payment = CDbl(InputBox("What's your monthly payment?"))
TotPmts = CDbl(InputBox("How many monthly payments do you have to make?"))
Response = MsgBox("Do you make payments at the end of the month?", MsgBoxStyle.YesNo)
If Response = MsgBoxResult.No Then
PayType = DueDate.BegOfPeriod
Else
PayType = DueDate.EndOfPeriod
End If
APR = (Rate(TotPmts, -Payment, PVal, FVal, PayType, Guess) * 12) * 100
MsgBox("Your interest rate is " & Format(CInt(APR), Fmt) & " percent.")
End Sub
Vea también
Referencia
Palabras clave y miembros por tareas
Palabras clave del lenguaje Visual Basic
Miembros de la biblioteca en tiempo de ejecución de Visual Basic