Befehlsreferenz - Mathematik: DDB-Funktion
VB-Versionen: VB4 | VB5 | VB6
Beschreibung:
Gibt die Abschreibung eines Vermögenswertes über einen bestimmten Zeitraum mit Hilfe der geometrisch-degressiven Abschreibungsmethode oder einer anderen angegebenen Methode zurück.
Die geometrisch-degressive Abschreibungsmethode berechnet die Abschreibung mit einem Verstärkungsfaktor. Die Abschreibung ist in der ersten Periode am höchsten und verringert sich in den darauffolgenden Perioden.
Syntax:
DDB (cost, salvage, life, period, [factor] )
Parameter:
cost | (Double) Gibt die Anschaffungskosten des Vermögenswertes an. |
salvage | (Double) Wert des Vermögenswertes nach der Nutzungsdauer. |
life | (Double) Länge der Nutzungsdauer. life und period müssen in der selben Maßeinheit angegeben werden (Monat, Jahr oder sonstwas). |
period | (Double) Zeitraum mit dem die Abschreibung des Vermögenswertes berechnet wird. |
factor | Optional. (Variant) Gibt den Faktor an, um den der Wert vermindert wird. Wird der Wert nicht angegeben, so wird 2 (geometrisch-degressive Methode) angenommen. |
Beispiel:
' Vermögensgegenstand: Computer ' Anschaffungskosten: DM 2.500,- ' Abschreibungsdauer: 3 Jahre ' Restwert nach Abschreibung: DM 1,- Dim Kaufpreis, Restwert, Nutzung As Double Dim Jahr1, Jahr2, Jahr3 As Double Kaufpreis = 2500 Restwert = 1 Nutzung = 3 ' Abschreibung für das 1. Jahr berechnen Jahr1 = DDB(Kaufpreis, Restwert, Nutzung, 1) Debug.Print "Abschreibung Jahr1: " & Format$(Jahr1, "###,##0.00") ' --> 1.666,67 ' Abschreibung für das 2. Jahr berechnen Jahr2 = DDB(Kaufpreis, Restwert, Nutzung, 2) Debug.Print "Abschreibung Jahr1: " & Format$(Jahr2, "###,##0.00") ' --> 555,56 ' Abschreibung für das 3. Jahr berechnen Jahr3 = DDB(Kaufpreis, Restwert, Nutzung, 3) Debug.Print "Abschreibung Jahr1: " & Format$(Jahr3, "###,##0.00") ' --> 185,19