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