|
Cet article a fait l'objet d'une traduction automatique. Déplacez votre pointeur sur les phrases de l'article pour voir la version originale de ce texte. Informations supplémentaires.
|
Traduction
Source
|
Financial, classe
Espace de noms : Microsoft.VisualBasic
Assembly : Microsoft.VisualBasic (dans Microsoft.VisualBasic.dll)
Le type Financial expose les membres suivants.
| Nom | Description | |
|---|---|---|
![]() ![]() | DDB | |
![]() | Equals(Object) | |
![]() ![]() | FV | |
![]() | GetHashCode | |
![]() | GetType | |
![]() ![]() | IPmt | |
![]() ![]() | IRR | |
![]() ![]() | MIRR | |
![]() ![]() | NPer | |
![]() ![]() | NPV | |
![]() ![]() | Pmt | |
![]() ![]() | PPmt | |
![]() ![]() | PV | |
![]() ![]() | Rate | |
![]() ![]() | SLN | |
![]() ![]() | SYD | |
![]() | ToString |
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
Windows 8, Windows Server 2012, Windows 7, Windows Vista SP2, Windows Server 2008 (rôle principal du serveur non pris en charge), Windows Server 2008 R2 (rôle principal du serveur pris en charge avec SP1 ou version ultérieure ; Itanium non pris en charge)
Le .NET Framework ne prend pas en charge toutes les versions de chaque plateforme. Pour obtenir la liste des versions prises en charge, consultez Configuration requise du .NET Framework.
