Como usar a função DDB no VBA?

A função DDB (Declining Balance Depreciation) no VBA é utilizada para calcular a depreciação de um ativo utilizando o método da depreciação acelerada. Este método permite que se deprecie mais o ativo nos primeiros anos de uso.

A sintaxe da função DDB é a seguinte:

DDB(Cost, Salvage, Life, Period, [Factor])

Onde:

Cost: O custo inicial do ativo.
Salvage: O valor residual do ativo ao final da sua vida útil.
Life: O tempo total de vida útil do ativo.
Period: O período para o qual você deseja calcular a depreciação.
Factor: (Opcional) O fator pelo qual a depreciação é acelerada. Se omitido, ele assume o valor padrão de 2 (o que representa uma depreciação balanceada mais rápida que a linha reta padrão).

Como usar a função DDB no VBA?

Aqui está um exemplo de como utilizar a função DDB no VBA:

Sub CalcularDepreciacao()
    Dim custoInicial As Double
    Dim valorResidual As Double
    Dim vidaUtil As Integer
    Dim periodo As Integer
    Dim depreciacao As Double
    
    ' Definindo valores
    custoInicial = 10000 ' Custo do ativo
    valorResidual = 1000 ' Valor residual ao final da vida útil
    vidaUtil = 5 ' Vida útil do ativo (em anos)
    periodo = 1 ' Período para o qual calcular a depreciação (ex. primeiro ano)
    
    ' Calculando depreciação usando DDB
    depreciacao = DDB(custoInicial, valorResidual, vidaUtil, periodo)
    
    ' Exibindo o resultado
    MsgBox "A depreciação no período " & periodo & " é: " & Format(depreciacao, "Currency")
End Sub

Explicação do exemplo:

custoInicial é definido como 10.000, representando o custo do ativo.
valorResidual é 1.000, o valor que se espera recuperar ao finalizar a vida útil do ativo.
vidaUtil é a duração total da depreciação, 5 anos nesse exemplo.
periodo é o ano atual para o cálculo da depreciação, começando com o primeiro ano neste exemplo.

O valor da depreciação para o primeiro ano é então calculado e exibido em uma caixa de mensagem. Para calcular a depreciação para outros anos, basta alterar o valor de `periodo`.

Importante lembrar que, ao usar a função DDB, você está calculando uma depreciação acelerada, o que significa que os valores de depreciação serão maiores nos primeiros anos em comparação aos últimos.

facebooklinkedin