Funzione SLN
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 |
---|---|---|
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)
Requisiti
Spazio dei nomi:Microsoft.VisualBasic
**Modulo:**Financial
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)