Funzione DDB

Articolo
09/12/2008

Aggiornamento: novembre 2007

Restituisce un valore Double in cui è indicato l'ammortamento di un bene per un periodo specificato utilizzando il metodo di ammortamento a doppie quote decrescenti o un altro metodo stabilito dall'utente.

Function DDB( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double, _
   ByVal Period As Double, _
   Optional ByVal Factor As Double = 2.0 _
) 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.
Factor
Facoltativo. Valore Double che specifica il rapporto di riduzione. Se l'argomento è omesso, verrà utilizzato 2, che corrisponde al metodo di ammortamento a doppie quote decrescenti.

Eccezioni

Tipo di eccezione	Numero di errore	Condizione
ArgumentException	5	Factor <= 0, Salvage < 0, Period <= 0 oppure Period > Life.

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

Con il metodo di ammortamento a doppie quote decrescenti è possibile calcolare l'ammortamento accelerato. L'ammortamento sarà massimo nel primo periodo e diminuirà progressivamente nei periodi successivi.

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.

La funzione DDB consente di calcolare l'ammortamento in un periodo specificato in base alla seguente formula:

Depreciation / Period = ((Cost – Salvage) * Factor) / Life

Esempio

Nell'esempio riportato di seguito la funzione DDB viene utilizzata per restituire l'ammortamento di un bene per un determinato periodo specificando il costo iniziale (InitCost), il valore di recupero al termine della durata utile del bene (SalvageVal), la durata totale del bene espressa in anni (LifeTime) e il periodo di calcolo dell'ammortamento espresso in anni (Depr).

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)