GDA-Funktion

  • Artikel

Gibt einen Double-Wert zurück, der die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum angibt, indem die Double-Degressive-Methode oder eine andere von Ihnen angegebene Methode verwendet wird.

Syntax

DDB(Cost, Salvage, Life, Period, [ Faktor ])

Die DDB-Funktion hat folgende benannten Argumente:

Teil Beschreibung
Kosten Erforderlich. Double , der die Anfänglichkosten der Ressource angibt.
Retten Erforderlich. Double , der den Wert des Medienobjekts am Ende seiner Nutzungsdauer angibt.
Leben Erforderlich. Double , der die Länge der Nutzungsdauer des Medienobjekts angibt.
Zeitraum Erforderlich. Double , der den Zeitraum angibt, für den die Abschreibung von Vermögenswerten berechnet wird.
Faktor Optional. Variante , die die Rate angibt, mit der der Saldo sinkt. Wenn diese Variante weggelassen wird, wird 2 (degressive Doppelraten-Methode) angenommen.

HinwBemerkungeneise

Die degressive Doppelraten-Abschreibungsmethode berechnet die Abschreibung mit beschleunigter Geschwindigkeit. Die Abschreibung ist im ersten Zeitraum am höchsten und verringert sich mit den folgenden Zeiträumen.

Die life- und period-Argumente müssen in denselben Einheiten ausgedrückt werden. Wenn Lebensdauer beispielsweise in Monaten angegeben ist, muss auch Zeitraum in Monaten angegeben werden. Alle Argumente müssen positive Zahlen sein.

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

Abschreibung / Period = ((Kostenwutigung - ) * Faktor) / Lebensdauer

Beispiel

In diesem Beispiel wird die DDB-Funktion verwendet, um die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum zurückzugeben, wobei die Anfänglichkosten (InitCost), der Wert für die Rettung 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 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 auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.