Financial-Modul (Visual Basic)
Aktualisiert: November 2007
Das Financial-Modul enthält Prozeduren, mit denen finanzielle Operationen ausgeführt werden.
Hinweise
Dieses Modul unterstützt die Member der Visual Basic-Laufzeitbibliothek, die finanzmathematische Berechnungen ausführen, z. B. die Abschreibung eines Vermögenswerts, derzeitige und zukünftige Werte, Zinssätze, Ertragssätze und Auszahlungen.
Member
|
|
|
Beispiel
In diesem Beispiel wird mit der Rate-Funktion der Zinssatz eines Darlehens berechnet. Gegeben sind die Gesamtzahl der Zahlungen (TotPmts), die Höhe der Darlehenszahlung (Payment), der aktuelle Wert oder Betrag des Darlehens (PVal), der zukünftige Wert des Darlehens (FVal), eine Zahl, die die Fälligkeit der Zahlung am Anfang oder Ende des Zahlungszeitraums angibt (PayType) und ein Schätzwert des erwarteten Zinssatzes (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
Siehe auch
Referenz
Schlüsselwörter und Member nach Tasks sortiert
Schlüsselwörter von Visual Basic