Funzione SLN

Articolo
09/12/2008

Aggiornamento: novembre 2007

Restituisce un valore Double in cui è specificato l'ammortamento a quote costanti di un bene per un singolo periodo.

Function SLN( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double _
) As Double

Parametri

Cost
Obbligatorio. Valore Double che specifica il costo iniziale del bene.
Salvage
Obbligatorio. Valore Double che specifica il valore del bene al termine della durata utile.
Life
Obbligatorio. Valore Double che specifica la durata utile del bene.

Eccezioni

Tipo di eccezione	Numero di errore	Condizione
ArgumentException	5	Life = 0.

Se si esegue l'aggiornamento delle applicazioni Visual Basic 6.0 che utilizzano la gestione degli errori non strutturata, vedere la colonna "Numero di errore". È possibile confrontare il numero di errore con la Proprietà Number (oggetto Err). Se possibile, tuttavia, si consiglia di sostituire il controllo dell'errore con la procedura illustrata nella sezione Cenni preliminari sulla gestione strutturata delle eccezioni per Visual Basic.

Note

Il periodo di ammortamento e l'argomento Life devono essere espressi nella stessa unità di tempo. Tutti gli argomenti devono essere numeri positivi.

Esempio

Nell'esempio riportato di seguito la funzione SLN viene utilizzata per restituire l'ammortamento a quote costanti di un bene per un singolo periodo specificando il costo iniziale del bene (InitCost), il valore di recupero al termine della durata utile del bene (SalvageVal) e la durata totale del bene espressa in anni (LifeTime).

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & _
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & _
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)