Financial.DDB(Double, Double, Double, Double, Double) Metodo

  • Riferimento

Definizione

Spazio dei nomi:
Microsoft.VisualBasic
Assembly:
Microsoft.VisualBasic.Core.dll
Assembly:
Microsoft.VisualBasic.dll
Source:
Financial.vb
Source:
Financial.vb
Source:
Financial.vb

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

Double

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

ArgumentException

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

Si applica a

Vedi anche