Freigeben über


Financial.DDB(Double, Double, Double, Double, Double) Methode

Definition

Gibt einen Wert zurück, der die Abschreibung eines Vermögenswerts über einen bestimmten Zeitraum mithilfe der geometrisch degressiven Abschreibungsmethode oder einer von Ihnen gewählten Methode angibt.

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

Parameter

Cost
Double

Erforderlich. Die Anschaffungskosten des Vermögenswerts.

Salvage
Double

Erforderlich. Der Wert des Vermögenswerts am Ende seiner Nutzungsdauer.

Life
Double

Erforderlich. Die Länge der Nutzungsdauer des Vermögenswerts.

Period
Double

Erforderlich. Der Zeitraum für den die Abschreibung des Vermögenswerts berechnet wird.

Factor
Double

Dies ist optional. Der Faktor, um den der Wert vermindert wird. Wird der Wert nicht angegeben, so wird 2 (geometrisch degressive Methode) angenommen.

Gibt zurück

Die Abschreibung eines Vermögenswerts über einen bestimmten Zeitraum mithilfe der geometrisch degressiven Abschreibungsmethode oder einer von Ihnen gewählten Methode.

Ausnahmen

Factor<= 0, Salvage< 0,<Period = 0 oder Period>Life.

Beispiele

In diesem Beispiel wird die DDB Funktion verwendet, um die Abschreibung eines Vermögenswerts für einen angegebenen Zeitraum zurückzugeben, wobei die Anfangskosten (InitCost), der Wert für die Bergung am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal), die Gesamtlebensdauer des Vermögenswerts in Jahren (LifeTime) und der Zeitraum in Jahren, für die die Abschreibung berechnet wird (Depr) zurückgegeben wird.

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)

Hinweise

Die degressive Doppelratenabschreibung berechnet den Abschreibungsbetrag mit einer beschleunigten Rate. Die Abschreibung ist in der ersten Periode am höchsten und nimmt in den nachfolgenden Perioden ab.

Die Life Argumente und Period müssen in den gleichen Einheiten ausgedrückt werden. Wenn beispielsweise Life in Monaten angegeben wird, Period muss auch in Monaten angegeben werden. Alle Argumente müssen positive Zahlen sein.

Die DDB Funktion verwendet die folgende Formel, um die Abschreibung für einen bestimmten Zeitraum zu berechnen:

Abschreibung / Zeitraum = ((Kosten - Rettung) * Faktor) / Lebensdauer

Gilt für:

Weitere Informationen