Esta página foi útil?
Seus comentários sobre este conteúdo são importantes. Queremos saber sua opinião.
1500 caracteres restantes
Financial Classe
 Este artigo foi traduzido por máquina. Coloque o ponteiro do mouse sobre as frases do artigo para ver o texto original. Mais informações. Tradução Original

# Financial Classe

.NET Framework 2.0

The Financial module contains procedures used to perform financial operations.

Namespace:  Microsoft.VisualBasic
Assembly:  Microsoft.VisualBasic (em Microsoft.VisualBasic. dll)

## Sintaxe

```[StandardModuleAttribute]
public sealed class Financial
```

## Comentários

For more detailed information, see the Visual Basic topic Módulo de Finanças (Visual Basic).

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.

## Exemplos

This example uses the Rate function to calculate the interest rate of a loan, given the total number of payments (TotPmts), the amount of the loan payment (Payment), the present value or principal of the loan (PVal), the future value of the loan (FVal), a number that indicates whether the payment is due at the beginning or end of the payment period (PayType), and an approximation of the expected interest rate (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

```

## Hierarquia de herança

System.Object
Microsoft.VisualBasic.Financial

## Segurança de Segmentos

Quaisquer membros públicos estático (compartilhados na Visual Basic) desse tipo são Thread seguro. Não há garantia de que qualquer membro de instância seja isento de segmentos.