Financial.DDB(Double, Double, Double, Double, Double) Método

Definição

Namespace:
Microsoft.VisualBasic
Assembly:
Microsoft.VisualBasic.dll

Retorna um valor que especifica a depreciação de um ativo por um período de tempo específico usando o método de saldo de declínio duplo ou algum outro método que você especificar.

public static double DDB(double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

Parâmetros

Cost
Double

Required. O custo inicial do ativo.

Salvage
Double

Required. O valor do ativo no final de sua vida útil.

Life
Double

Required. A duração da vida útil do ativo.

Period
Double

Required. O período para o qual a depreciação do ativo é calculada.

Factor
Double

Optional. A taxa na qual o saldo diminui. Se omitido, 2 (método de declínio duplo) será assumido.

Retornos

Double

A depreciação de um ativo por um período de tempo específico usando o método de saldo de declínio duplo ou algum outro método que você especificar.

Exceções

ArgumentException

Factor <= 0, Salvage< 0,<Period = 0 ou Period>Life.

Exemplos

Este exemplo usa a DDB função para retornar a depreciação de um ativo por um período especificado, considerando o custo inicial (InitCost), o valor de salvamento no final da vida útil do ativo (SalvageVal), a vida útil total do ativo em anos (LifeTime) e o período em anos para o qual a depreciação é calculada (Depr).

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & 
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & 
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)

Comentários

O método de saldos decrescentes duplos calcula a depreciação a uma taxa acelerada. A depreciação é mais alta no primeiro período e vai diminuindo nos períodos sucessivos.

Period E Life os argumentos devem ser expressos nas mesmas unidades. Por exemplo, se Life for dado em meses, Period também deve ser dado em meses. Todos os argumentos devem ser números positivos.

A DDB função usa a seguinte fórmula para calcular a depreciação por um determinado período:

Depreciação/Período = ((Custo - Salvamento) * Fator) / Vida

Aplica-se a

Confira também