Função AMORTD

Devolve um valor Duplo que especifica a depreciação dos algarismos da soma dos anos de um ativo para um período especificado.

Sintaxe

AMORTD(custo; val_residual; vida_útil; período)

A sintaxe da função AMORTD tem os seguintes argumentos:

Argumento	Descrição
custo	Obrigatório. Especificação dupla do custo inicial do ativo.
salvamento	Obrigatório. Especificação dupla do valor do ativo no final da sua vida útil.
Vida	Obrigatório. Especificação dupla do tempo de vida útil do ativo.
ponto final	Obrigatório. Especificação dupla do período para o qual a depreciação do ativo é calculada.

Observações

Os argumentos de vida e período devem ser expressos nas mesmas unidades. Por exemplo, se a vida é dada em meses, o período também deve ser dado em meses. Todos os argumentos têm de ser números positivos.

Exemplos de consulta

Expressão	Resultados
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) COMO Expr1 FROM FinancialSample;	Calcula a depreciação de um ativo avaliado como "LoanAmount", com um valor residual de 10% ("LoanAmount" multiplicado por 0,1), considerando a vida útil do ativo como sendo de 20 anos. A depreciação é calculada para o segundo ano.
SELECT SYD([LoanAmount],0,20,3) COMO SLDevaluation FROM FinancialSample;	Devolve a depreciação de um ativo avaliado como "LoanAmount", com um valor residual de $0, considerando que a vida útil do ativo é de 20 anos. Os resultados são apresentados na coluna SLDepreciation. A depreciação é calculada para o terceiro ano.

Exemplo do VBA

Este exemplo utiliza a função AMORTD para devolver a depreciação de um ativo para um período especificado, tendo em conta o custoInitCost inicial (), o valor residual no final da vida útil do ativo (SalvageVal) e a vida útil total do ativo em anos (LifeTime). O período em anos para o qual a depreciação é calculada é PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12    ' Number of months in a year.
Fmt = "###,##0.00"    ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YEARMONTHS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."