Financial.DDB(Double, Double, Double, Double, Double) Metodo
Definizione
Importante
Alcune informazioni sono relative alla release non definitiva del prodotto, che potrebbe subire modifiche significative prima della release definitiva. Microsoft non riconosce alcuna garanzia, espressa o implicita, in merito alle informazioni qui fornite.
Restituisce un valore che specifica l'ammortamento di un bene per un periodo di tempo specifico usando il metodo a doppie quote proporzionali o un altro metodo specificato dall'utente.
public static double DDB (double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double
Parametri
- Cost
- Double
Obbligatorio. Costo iniziale del bene.
- Salvage
- Double
Obbligatorio. Valore del bene alla fine della sua vita utile.
- Life
- Double
Obbligatorio. Durata della vita utile del bene.
- Period
- Double
Obbligatorio. Periodo per cui viene calcolato l'ammortamento del bene.
- Factor
- Double
facoltativo. Tasso di deprezzamento del valore residuo. Se omesso, viene utilizzato 2 (metodo a doppie quote proporzionali).
Restituisce
Ammortamento di un bene per un periodo di tempo specifico usando il metodo a doppie quote proporzionali o un altro metodo specificato dall'utente.
Eccezioni
Factor
<= 0, Salvage
< 0,<Period
= 0 o Period
>Life
.
Esempio
In questo esempio viene utilizzata la DDB
funzione per restituire l'ammortamento di un cespite per un periodo specificato in base al costo iniziale (InitCost
), il valore di recupero alla fine della vita utile del cespite (SalvageVal
), la durata totale dell'attività in anni (LifeTime
) e il periodo in anni per cui viene calcolato l'ammortamento (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)
Commenti
Il metodo di ammortamento a quote dimezzate calcola l'ammortamento con quote accelerate. L'ammortamento è più alto nel primo periodo e diminuisce nei periodi successivi.
Gli Life
argomenti e Period
devono essere espressi nelle stesse unità. Ad esempio, se Life
viene specificato in mesi, Period
deve essere assegnato anche in mesi. Tutti gli argomenti devono essere numeri positivi.
La DDB
funzione usa la formula seguente per calcolare l'ammortamento per un determinato periodo:
Ammortamento/Periodo = ((Costo - Salvataggio) * Fattore) / Vita