Restituisce un valore Double che specifica l'ammortamento a somma degli anni di un bene per un periodo specificato.
Sintassi
AMMORT.ANNUO( 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 nella stessa unità di tempo. Se ad esempio l'argomento vita_utile viene espresso in mesi, anche l'argomento 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
Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.
In questo esempio viene usata la funzione AMMORT.ANNUO per restituire l'ammortamento di un bene per un determinato periodo specificando il costo iniziale del bene (InitCost), il valore residuo al termine della vita utile del bene (SalvageVal) e la durata totale del bene espressa in anni (LifeTime). Il periodo di calcolo dell'ammortamento, espresso in anni, corrisponde a 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) & "."
