DDB-Funktion

Artikel
09/03/2008

Aktualisiert: November 2007

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

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

Parameter

Cost
Erforderlich. Wert vom Typ Double, der die Anschaffungskosten eines Vermögenswerts angibt.
Salvage
Erforderlich. Wert vom Typ Double, der den Vermögenswert am Ende der Nutzungsdauer angibt.
Life
Erforderlich. Wert vom Typ Double, der die Länge der Nutzungsdauer des Vermögenswerts angibt.
Period
Erforderlich. Wert vom Typ Double, der den Zeitraum für die Berechnung der Abschreibung des Vermögenswerts angibt.
Factor
Optional. Wert vom Typ Double, der den Faktor angibt, um den der Wert vermindert wird. Wird der Wert nicht angegeben, so wird 2 (geometrisch degressive Methode) angenommen.

Ausnahmen

Ausnahmetyp	Fehlernummer	Bedingung
ArgumentException	5	Factor <= 0, Salvage < 0, Period <= oder Period > Life.

Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.

Hinweise

Die geometrisch degressive Abschreibungsmethode ermöglicht die beschleunigte Abschreibung eines Vermögenswerts. Die Abschreibung ist in der ersten Periode am höchsten und verringert sich in den darauf folgenden Perioden.

Das Life-Argument und das Period-Argument müssen in der gleichen Maßeinheit ausgedrückt werden. Wenn Life z. B. in Monaten angegeben wird, muss Period ebenfalls 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:

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

Beispiel

In diesem Beispiel wird mit der DDB-Funktion die Abschreibung eines Vermögenswerts über einen bestimmten Zeitraum zurückgegeben. Gegeben sind dabei die Anschaffungskosten (InitCost), der Restwert am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal), die Gesamtlebensdauer des Vermögenswerts in Jahren (LifeTime) und der Berechnungszeitraum für die Abschreibung in Jahren (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)