Restituisce un valore Double che specifica l'ammortamento a quote costanti di un bene per un singolo periodo.
Sintassi
SLN (costo, recupero, vita)
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'argomentovita. Tutti gli argomenti devono essere numeri positivi.
Esempi di query
| Espressione | Risultati |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample; | Restituisce l'ammortamento di un bene valutato come "ImportoPrestito", con un valore di recupero del 10% ("ImportoPrestito 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 di un bene valutato come "LoanAmount", con un valore di recupero pari a $ 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.
In questo esempio viene utilizzata la funzione SLN per restituire l'ammortamento a quote costanti di un bene per un singolo periodo dato il costo iniziale del bene (InitCost), il valore di recupero alla fine della vita utile del bene (SalvageVal) e la vita 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."