Financial, module (Visual Basic)
Mise à jour : novembre 2007
Le module Financial contient les procédures utilisées pour effectuer des opérations financières.
Notes
Ce module prend en charge les membres de la bibliothèque runtime Visual Basic qui exécutent des calculs financiers tels que l'amortissement, les valeurs actuelles et futures, les taux d'intérêt, les taux de retour et les paiements.
Membres
|
|
|
Exemple
Cet exemple utilise la fonction Rate pour calculer le taux d'intérêt d'un emprunt, en fonction du nombre d'échéances (TotPmts), du montant des remboursements (Payment), de la valeur actuelle ou du capital de l'emprunt (PVal), de la valeur future de l'emprunt (FVal), d'un nombre indiquant si le paiement doit être effectué en début ou en fin de période (PayType), ainsi que de la valeur approximative du taux d'intérêt escompté (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
Voir aussi
Référence
Liste des mots clés financiers
Mots clés et membres par tâche
Mots clés du langage Visual Basic