GDA-FunktionDDB function

Gibt einen Double -Wert zurück, der die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum unter Verwendung der Double-degressive Balance-Methode oder einer anderen von Ihnen angegebenen Methode angibt.Returns a Double specifying the depreciation of an asset for a specific time period by using the double-declining balance method or some other method you specify.

SyntaxSyntax

DDB (Kosten, Bergung, Lebensdauer, Zeitraum, [ Factor ])DDB(cost, salvage, life, period, [ factor ])


Die DDB-Funktion hat folgende benannten Argumente:The DDB function has these named arguments:

PartPart BeschreibungDescription
Kostencost Erforderlich.Required. Double , der die anfänglichen Kosten des Objekts angibt.Double specifying the initial cost of the asset.
rettensalvage Erforderlich.Required. Double , der den Wert des Objekts am Ende seiner Nutzungsdauer angibt.Double specifying the value of the asset at the end of its useful life.
Lebenslife Erforderlich.Required. Double , der die Dauer der Nutzungsdauer des Objekts angibt.Double specifying the length of useful life of the asset.
Zeitraumperiod Erforderlich.Required. Double , der den Zeitraum angibt, für den die Abschreibung der Anlage berechnet wird.Double specifying the period for which asset depreciation is calculated.
Faktorfactor Optional.Optional. Variant gibt die Rate an, mit der der Saldo zurückgeht.Variant specifying the rate at which the balance declines. Wenn diese Variante weggelassen wird, wird 2 (degressive Doppelraten-Methode) angenommen.If omitted, 2 (double-declining method) is assumed.

BemerkungenRemarks

Die degressive Doppelraten-Abschreibungsmethode berechnet die Abschreibung mit beschleunigter Geschwindigkeit.The double-declining balance method computes depreciation at an accelerated rate. Die Abschreibung ist im ersten Zeitraum am höchsten und verringert sich mit den folgenden Zeiträumen.Depreciation is highest in the first period and decreases in successive periods.

Die life- und period -Argumente müssen in denselben Einheiten ausgedrückt werden.The life and period arguments must be expressed in the same units. Wenn Lebensdauer beispielsweise in Monaten angegeben ist, muss auch Zeitraum in Monaten angegeben werden.For example, if life is given in months, period must also be given in months. Alle Argumente müssen positive Zahlen sein.All arguments must be positive numbers.

Die DDB-Funktion verwendet folgende Formel, um die Abschreibung für einen bestimmten Zeitraum zu berechnen:The DDB function uses the following formula to calculate depreciation for a given period:

Abschreibung/ Zeitraum = (((Kosten - Bergungs-) * Faktor)/ LebensdauerDepreciation / period = ((cost - salvage) * factor) / life

BeispielExample

In diesem Beispiel wird die DDB -Funktion verwendet, um die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum zurückzugeben,InitCostwenn die anfänglichen Kosten (), der Restwert am Ende der NutzungsdauerSalvageValdes Vermögenswerts (), die Gesamtdauer des VermögensLifeTimeWerts in Jahren () und die Zeitraum in Jahren, für den die Abschreibung berechnet wird (Depr).This example uses the DDB function to return the depreciation of an asset for a specified period given the initial cost (InitCost), the salvage value at the end of the asset's useful life (SalvageVal), the total life of the asset in years (LifeTime), and the period in years for which the depreciation is calculated (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12    ' Number of months in a year.
Fmt = "###,##0.00"
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("Enter the asset's value at end of its life.")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YRMOS    ' Ensure period is >= 1 year.
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's useful life in months?")
Loop
LifeTime = MonthLife / YRMOS    ' Convert months to years.
If LifeTime <> Int(MonthLife / YRMOS) Then
    LifeTime = Int(LifeTime + 1)    ' Round up to nearest year.
End If 
DepYear = CInt(InputBox("Enter year for depreciation calculation."))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "You must enter at least 1 but not more than " & LifeTime
    DepYear = InputBox("Enter year for depreciation calculation.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.