Funzione AMMORT.ANNUO

Restituisce un valore Double che specifica l'ammortamento a somma degli anni di un bene per un periodo specificato.

Sintassi

A DISA(costo; val_residuo; vita_utile; periodo)

La sintassi della funzione AMMORT.ANNUO ha gli argomenti seguenti:

Argomento	Descrizione
Costo	Obbligatorio. Valore Double che specifica il costo iniziale del bene.
val_residuo	Obbligatorio. Valore Double che specifica il valore del bene al termine della vita utile.
vita_utile	Obbligatorio. Valore Double che specifica la durata della vita utile del bene.
periodo	Obbligatorio. Valore Double che specifica il periodo di calcolo dell'ammortamento del bene.

Osservazioni

Gli argomenti vita_utile e periodo devono essere espressi nelle stesse unità di misura. Ad esempio, se la durata viene specificata in mesi, anche il periodo deve essere espresso in mesi. Tutti gli argomenti devono essere numeri positivi.

Esempi di query

Espressione	Risultati
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Espr1 FROM FinancialSample;	Calcola l'ammortamento per un bene valutato come "Importo Prestito", con un valore residuo del 10% ("Importo Prestito" moltiplicato per 0,1), considerando che la vita utile del bene è di 20 anni. L'ammortamento viene calcolato per il secondo anno.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Restituisce l'ammortamento per un bene il cui valore è "LoanAmount", con un valore residuo di $ 0, considerando che la vita utile del bene è di 20 anni. I risultati vengono visualizzati nella colonna SLDepreciation. L'ammortamento viene calcolato per il terzo anno.

Esempio di VBA

In questo esempio viene usata la funzione AMMORT.SCAD per restituire l'ammortamento di un bene per un periodo specificato in base al costo iniziale del bene (InitCost), al valore residuo alla fine della vita utile del bene (SalvageVal) e alla durata totale del bene in anni ().LifeTime Il periodo in anni per il quale viene calcolato l'ammortamento è 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) & "."