SLN-Funktion (LIA)

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 die lineare Abschreibung eines Wirtschaftsguts für eine einzelne Periode zurück.

Syntax

SLN( cost, salvage, life )

Die Funktion LIA 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. Wert vom Typ Double, der die Länge der Nutzungsdauer des Postens angibt.


Hinweise

Der Abschreibungszeitraum muss in derselben Maßeinheit ausgedrückt werden wie das Argumentlife. 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 SLN-Funktion verwendet, um die lineare Abschreibung eines Postens für einen einzigen Zeitraum zurückzugeben. Gegeben sind die Anschaffungskosten des Postens (InitCost), der Restwert am Ende der Nutzungsdauer des Postens (SalvageVal) sowie die Gesamtnutzungsdauer des Postens in Jahren (LifeTime).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."

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!

×