Restituisce un valore Double che specifica l'ammortamento a quote costanti di un bene per un singolo periodo.
Sintassi
AMMORT.COST(costo; val_residuo; vita_utile)
La sintassi della funzione AMMORT.COST 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. |
Osservazioni
Il periodo di ammortamento deve essere espresso nella stessa unità dell'argomento vita_utile. Tutti gli argomenti devono essere numeri positivi.
Esempi di query
| Espressione | Risultati |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Espr1 FROM FinancialSample; | Restituisce 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. |
| SELECT SLN([LoanAmount],0,20) 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. |
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.
Questo esempio usa la funzione AMMORT.COST per restituire l'ammortamento a quote costanti di un bene per un singolo periodo in base al costo iniziale del bene (InitCost), al valore residuo al termine della vita utile del bene (SalvageVal) e alla durata totale del bene in anni (LifeTime).
Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."