Модуль Financial (Visual Basic)

Статья
11/05/2008

Обновлен: Ноябрь 2007

В модуле Financial содержатся процедуры, используемые для выполнения финансовых операций.

Заметки

Этот модуль поддерживает члены библиотеки времени выполнения Visual Basic, которые выполняют финансовые расчеты, например амортизации, текущих и будущих значений, процентных ставок, ставок возврата и платежей.

Члены

DDB	FV	IPmt	IRR
MIRR	NPer	NPV	Pmt
PPmt	PV	Rate	SLN
SYD

Пример

Этот пример использует функцию Rate для расчета процентной ставки займов по заданному общему числу платежей (TotPmts), сумме заемного платежа (Payment), текущей сумме или сумме займа (PVal), будущему значению ссуды (FVal), числу, определяющему был ли платеж внесен в начале, либо в конце периода оплаты (PayType) и приблизительной ожидаемой процентной ставке (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

См. также

Ссылки

Сводка по финансовым функциям

Зарезервированные слова и члены, сгруппированные по задачам

Ключевые слова языка Visual Basic

Члены библиотеки времени выполнения Visual Basic

Сравнение зарезервированных слов в разных языках

Поделиться через