Gibt einen Double-Wert zurück, der die Abschreibung eines Wirtschaftsguts für einen bestimmten Zeitraum unter Verwendung der degressiven Doppelraten-Abschreibung oder eines anderen von Ihnen angegebenen Abschreibungsverfahrens angibt.
Syntax
DDB(cost, salvage, life, period* [, factor] )
Die Syntax der Funktion GDA weist die folgenden Argumente auf:
| Argument | Beschreibung |
|---|---|
| Kosten | Erforderlich. Double-Wert, der den Anschaffungswert des Wirtschaftsguts angibt. |
| Restwert | Erforderlich. Double-Wert, der den Restwert des Wirtschaftsguts angibt. |
| Nutzungsdauer | Erforderlich. Double-Wert, der die Länge der Nutzungsdauer des Wirtschaftsguts angibt. |
| Zr | Erforderlich. Double-Wert, der den Zeitraum angibt, für den die Abschreibung des Wirtschaftsguts berechnet wird. |
| Faktor | Optional. Variant-Wert, der den Satz angibt, mit dem der Saldo abnimmt. Wenn nicht angegeben, wird 2 (degressive Doppelraten-Abschreibung) angenommen. |
Hinweise
Die degressive Doppelraten-Abschreibung berechnet die Abschreibung mit einer beschleunigten Rate. Die Abschreibung ist in der ersten Periode am höchsten und nimmt in den nachfolgenden Perioden ab.
Die Argumente life und period müssen in denselben Einheiten ausgedrückt werden. Wenn das Leben beispielsweise in Monaten angegeben wird, muss der Zeitraum auch in Monaten angegeben werden. Bei allen Argumenten muss es sich um positive Zahlen handeln.
Die Funktion GDA verwendet die folgende Formel zum Berechnen der Abschreibung für einen gegebenen Zeitraum:
Abschreibung / Period = ((Kosten – Bergung) * Faktor) / Lebensdauer
Beispiel
Hinweis
Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die DDB-Funktion verwendet, um die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum unter Berücksichtigung der Anfänglichkosten (InitCost), des Werts am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal), der Gesamtlebensdauer des Vermögenswerts in Jahren (LifeTime) und des Zeitraums in Jahren zurückzugeben, für den die Abschreibung berechnet wird (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) & "."