vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück

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.
factorOptional. (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

Diese Seite wurde bereits 10.151 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel