SLN-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, Rettung, Leben)SLN(cost, salvage, life)

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

TeilPart BeschreibungDescription
Kostencost Erforderlich.Required. Double-Wert, der die Anlagekosten des Objekts angibt.Double specifying initial cost of the asset.
Restwertsalvage Erforderlich.Required. Double-Wert, der den Wert des Objekts am Ende seiner Nutzungsdauer angibt.Double specifying value of the asset at the end of its useful life.
Lebenlife Erforderlich.Required. Double-Wert, der die Länge der Nutzungsdauer angibt.Double specifying length of the useful life of the asset.

HinweiseRemarks

Der AfA-Zeitraum muss in derselben Einheit ausgedrückt werden wie das Argument Life .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 einzelnen Zeitraum zurückzugeben, wenn die anfänglichen Kosten der Ressource (InitCost), der Restwert am Ende der Nutzungsdauer desSalvageValVermögenswerts () und die Gesamtlebensdauer des Vermögenswerts in Jahre (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.