Applies ToAccess für Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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

GDA( Ansch_Wert;Restwert;Nutzungsdauer;Periode [, Faktor] )

Die Syntax der Funktion GDA weist die folgenden Argumente auf:

Argument

Beschreibung

Ansch_Wert

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.

Anmerkungen

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 Nutzungsdauer und Zeitraum (Zr) müssen in derselben Einheit angegeben werden. Wenn Nutzungsdauer beispielsweise in Monaten angegeben wird, muss auch Zeitraum (Zr) 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 / Zeitraum = ((Ansch_WertRestwert) * Faktor) / Nutzungsdauer

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 Funktion GDA verwendet, um die Abschreibung eines Wirtschaftsguts für einen bestimmten Zeitraum zurückzugeben, wobei der Anschaffungswert (InitCost), der Restwert am Ende der Nutzungsdauer des Wirtschaftsguts (SalvageVal), die gesamte Nutzungsdauer des Wirtschaftsguts in Jahren (LifeTime) und der Zeitraum in Jahren berechnet (Depr) werden, für der die Abschreibung berechnet wird.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, DeprConst 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?")LoopLifeTime = 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.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.