SYD-Funktion (DIA)

Wichtig :  Dieser Artikel wurde maschinell übersetzt. Bitte beachten Sie den Haftungsausschluss. Die englische Version des Artikels ist als Referenz hier verfügbar: hier.

Gibt einen Double-Wert der-arithmetisch degressive Abschreibung eines Wirtschaftsguts für eine bestimmte Periode zurück.

Syntax

SYD( Kosten, Restwert, Nutzungsdauer, Zeitraum )

Die Syntax der Funktion DIA weist die folgenden Argumente:

Argument

Beschreibung

Kosten

Erforderlich. Double, womit die Anschaffungskosten des Postens angegeben werden.

Restwert

Erforderlich. Double, womit der Wert eines Postens am Ende der Nutzungsdauer angegeben wird.

Nutzungsdauer

Erforderlich. Double, womit die Nutzungsdauer eines Postens angegeben wird.

Zeitraum

Erforderlich. Double, womit der Zeitraum angegeben wird, für die die Abschreibung des Postens berechnet wird.


Hinweise

Die Argumente Nutzungsdauer und Periode müssen in derselben Maßeinheit ausgedrückt werden. Wenn Nutzungsdauer in Monaten angegeben wird, muss beispielsweise Zeitraum ebenfalls in Monaten angegeben. Alle Argumente müssen positive Zahlen sein.

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 SYD-Funktion verwendet, um die Abschreibung eines Postens für einen angegebenen Zeitraum zurückzugeben. Dabei sind die Anschaffungskosten des Postens (InitCost), der Restwert am Ende der Nutzungsdauer des Postens (SalvageVal) und die Gesamtnutzungsdauer des Postens in Jahren (LifeTime) angegeben. Der Zeitraum in Jahren, für die die Abschreibung berechnet wird, ist PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' 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 / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."

Hinweis : Haftungsausschluss für maschinelle Übersetzungen: Dieser Artikel wurde mithilfe eines Computersystems und ohne jegliche Bearbeitung durch Personen übersetzt. Microsoft bietet solche maschinellen Übersetzungen als Hilfestellung für Benutzer ohne Englischkenntnisse an, damit Sie von den Informationen zu Produkten, Diensten und Technologien von Microsoft profitieren können. Da es sich bei diesem Artikel um eine maschinelle Übersetzung handelt, enthält er möglicherweise Fehler in Bezug auf (Fach-)Terminologie, Syntax und/oder Grammatik.

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!

×