DDB-Funktion

Access für Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr... Weniger

Gibt ein Double zurück, das die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum unter Verwendung der doppelt degressiven Methode oder einer anderen von Ihnen angegebenen Methode angibt.

Syntax

DDB( Kosten, Restwert, Lebensdauer, Zeitraum [ , Faktor ] )

Die Syntax der DDB- Funktion hat die folgenden Argumente:

Streit	Beschreibung
kosten	Erforderlich. Doppelte Angabe der Anschaffungskosten des Vermögenswerts.
Bergung	Erforderlich. Doppelte Angabe des Vermögenswerts am Ende seiner Nutzungsdauer.
Leben	Erforderlich. Doppelte Angabe der Nutzungsdauer des Vermögenswerts.
Zeitraum	Erforderlich. Doppelte Angabe des Zeitraums, für den die Anlagenabschreibung berechnet wird.
Faktor	Optional. Variante, die die Rate angibt, um die der Saldo abnimmt. Wenn weggelassen, wird 2 (doppelt degressive Methode) angenommen.

Bemerkungen

Bei der Methode der doppelt degressiven Bilanz wird die Abschreibung beschleunigt berechnet. Die Abschreibung ist in der ersten Periode am höchsten und nimmt in den folgenden Perioden ab.

Die Argumente life und period müssen in denselben Einheiten ausgedrückt werden. Wenn beispielsweise das Leben in Monaten angegeben wird, muss auch die Periode 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 – Restwert ) * Faktor ) / Lebensdauer

Beispiel

Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste 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 Anschaffungskosten ( InitCost ), des Restwerts am Ende der Nutzungsdauer des Vermögenswerts ( SalvageVal ), der Gesamtlebensdauer des Vermögenswerts in Jahren ( LifeTime ) und den Zeitraum in Jahren, 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) & "."