LIA-FunktionSLN function

Gibt einen Double-Wert zurück, der die lineare Abschreibung eines Vermögenswerts für einen einzelnen Zeitraum angibt.Returns a Double specifying the straight-line depreciation of an asset for a single period.

SyntaxSyntax

SLN (Kosten, Restwert, Lebensdauer)SLN(cost, salvage, life)

Die SLN-Funktion hat folgende benannten Argumente:The SLN function has these named arguments:

TeilPart BeschreibungDescription
Kostencost Erforderlich.Required. Double , der die anfängliche Kosten des Vermögenswerts.Double specifying initial cost of the asset.
Restwertsalvage Erforderlich.Required. Double , der Wert der Anlage am Ende der Nutzungsdauer.Double specifying value of the asset at the end of its useful life.
Lebensdauerlife Erforderlich.Required. Double , der die Länge der Nutzungsdauer des Vermögenswerts.Double specifying length of the useful life of the asset.

HinweiseRemarks

Der Zeitraum der Abschreibung muss in der gleichen Maßeinheit wie Life - Argumentvermittelt werden.The depreciation period must be expressed in the same unit as the life argument. Alle Argumente müssen positive Zahlen sein.All arguments must be positive numbers.

BeispielExample

In diesem Beispiel wird die SLN -Funktion verwendet, um die lineare Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum die Anlage Anschaffungskosten zurückzugeben (InitCost), der Restwert am Ende der Nutzungsdauer (SalvageVal), und die gesamte Lebensdauer eines Vermögenswerts im Jahren (LifeTime).This example uses the SLN function to return the straight-line depreciation of an asset for a single period given the asset's initial cost (InitCost), the salvage value at the end of the asset's useful life (SalvageVal), and the total life of the asset in years (LifeTime).

Dim Fmt, InitCost, SalvageVal, 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?")
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
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & Format(PDepr, Fmt) & " per year."

Siehe auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.