Módulo de Finanças (Visual Basic)
O módulo Financial contém procedimentos usados para executar operações financeiras.
Comentários
O módulo suporta os membros da biblioteca de tempo de execução do Visual Basic que executa cálculos financeiros como depreciação, valores futuros e presentes, taxas de interesse, taxas de retorno e pagamentos.
Membros
|
|
|
Exemplo
O exemplo usa a função Rate para calcular a taxa de interesse de uma ação, dado o número total de pagamentos (TotPmts)O montante de pagamentos da ação (Payment),o valor presente ou principal da açãoPVal),o valor futuro da ação (FVal), um número que indica se o pagamento é devido no começo ou fim do período de pagamentoPayType), e uma aproximação da taxa de interesse esperada(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
Consulte também
Referência
Palavras-chave e membros por tarefa
Palavras-chave Linguagem Visual Basic
Membros em tempo de execução da biblioteca do Visual Basic
Palavras-chave em comparação comparadas o em idiomas diferentes