Condividi tramite


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

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)

Requisiti

Spazio dei nomi:Microsoft.VisualBasic

**Modulo:**Financial

**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)

Vedere anche

Riferimenti

Funzione SYD

Funzione DDB

Riepilogo degli elementi finanziari

ArgumentException