DDB-Funktion

Gibt einen Wert vom Typ Double-Datentyp zurück, der die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum angibt, wobei die degressive Saldomethode oder eine andere von Ihnen angegebene Methode verwendet wird.

Syntax

DDB(cost, salvage, life, period [, factor] )

Die Syntax der DDB-Funktion enthält die folgenden Argument:

Argument

Beschreibung

cost

Erforderlich. Ein Wert vom Typ Double, der die Anschaffungskosten des Postens angibt.

salvage

Erforderlich. Ein Wert vom Typ Double, der den Wert der Anlage am Ende der Nutzungsdauer angibt.

life

Erforderlich. Ein Wert vom Typ Double, der die Länge der Nutzungsdauer für die Anlage angibt.

period

Erforderlich. Ein Wert vom Typ Double, der den Zeitraum angibt, für den die Anlagenabschreibung berechnet wird.

factor

Optional. Wert vom Typ Variant-Datentyp, der die Rate angibt, um die der Restbuchwert abnimmt. Wenn Sie diesen Wert auslassen, wird der Wert 2 (degressive Doppelraten-Abschreibung) verwendet.


Hinweise

Die degressive Saldomethode berechnet die Abschreibung zu einem beschleunigten Satz. Die Abschreibung ist im ersten Zeitraum am höchsten und nimmt in den nachfolgenden Zeiträumen ab.

Für die Argumentlife und period müssen dieselben Einheiten verwendet werden. Wenn life beispielsweise in Monaten angegeben ist, 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:

Abschreibung / period = ((cost - salvage) * factor) / life

Beispiel

Hinweis : Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic für Applikationen). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerhilfe in der Dropdownliste neben Suchen, 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 zurückzugeben, wobei die Anschaffungskosten (InitCost), der Restwert am Ende der Nutzungsdauer der Anlage (SalvageVal), die Gesamtnutzungsdauer der Anlage in Jahren (LifeTime) und der Zeitraum in Jahren, für den die Abschreibung berechnet wird (Depr), angegeben werden.

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) & "."
Teilen Facebook Facebook Twitter Twitter E-Mail E-Mail

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×