Funzione SYD

Articolo
09/12/2008

Aggiornamento: novembre 2007

Restituisce un valore Double che specifica l'ammortamento a somma degli anni di un bene per un periodo specificato.

Function SYD( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double, _
   ByVal Period 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.
Period
Obbligatorio. Valore Double che specifica il periodo di calcolo dell'ammortamento del bene.

Eccezioni

Tipo di eccezione	Numero di errore	Condizione
ArgumentException	5	Salvage < 0, Period > Life o Period <=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

Gli argomenti Life e Period devono essere espressi utilizzando la stessa unità di tempo. Se, ad esempio, Life viene espresso in mesi, anche Period dovrà essere espresso in mesi. Tutti gli argomenti devono essere numeri positivi.

Esempio

Nell'esempio riportato di seguito la funzione SYD viene utilizzata per restituire l'ammortamento di un bene per un determinato 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)