SYD-Funktion (DIA)

Gibt einen Wert vom Typ Double-Datentyp zurück, womit die arithmetisch-degressive Abschreibung eines Postens für einen bestimmten Zeitraum angegeben wird.

Syntax

SYD(Kosten, Restwert, Nutzungsdauer, Zeitraum)

Die Syntax der SYD-Funktion weist die folgenden Argument auf:

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 ArgumentNutzungsdauer und Zeitraum müssen in der gleichen Einheit angegeben werden. Wenn z. B. Nutzungsdauer in Monaten angegeben wurde, muss Zeitraum ebenfalls in Monaten angegeben werden. Alle Argumente müssen positive Zahlen sein.

Beispiel

Hinweis : Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic für Applikationen). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerhilfe in der Dropdownliste neben Suchen, 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) & "."
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!

×