Gibt einen Double-Wert zurück, der die lineare Abschreibung eines Wirtschaftsguts für einen einzelnen Zeitraum zurückgibt.
Syntax
SLN (Kosten, Bergung, Leben)
Die Funktion LIA weist die folgenden Argumente auf:
| Argument | Beschreibung |
|---|---|
| Kosten | Erforderlich. Double-Wert, der den Anschaffungswert des Wirtschaftsguts angibt. |
| Restwert | Erforderlich. Double-Wert, der den Restwert des Wirtschaftsguts angibt. |
| Nutzungsdauer | Erforderlich. Double-Wert, der die Länge der Nutzungsdauer des Wirtschaftsguts angibt. |
Hinweise
Der Abschreibungszeitraum muss in der gleichen Einheit wie das Lebenszeitargumentausgedrückt werden. Bei allen Argumenten muss es sich um positive Zahlen handeln.
Abfragebeispiele
| Ausdruck | Ergebnisse |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Ausdr1 FROM FinancialSample; | Gibt die Abschreibung für einen Wirtschaftsposten mit dem Wert "LoanAmount" mit einem Restwert von 10 % ("LoanAmount" multipliziert mit 0,1) zurück, wobei die Nutzungsdauer des Vermögenswerts 20 Jahre beträgt. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Gibt die Abschreibung für einen Wirtschaftsposten im Wert "LoanAmount" mit einem Restwert von 0 $ zurück, wobei die Nutzungsdauer des Vermögenswerts 20 Jahre beträgt. Die Ergebnisse werden in der Spalte SLDepreciation angezeigt. |
VBA-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 Wirtschaftsguts für eine einzelne Periode zurückzugeben, wobei die Anschaffungskosten des Vermögenswerts (InitCost), der Restwert am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal) und die Gesamtnutzungsdauer des Vermögenswerts in Jahren (LifeTime) zugrunde gelegt werden.
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."