LIA-Funktion

  • Artikel

Gibt einen Double-Wert zurück, der die lineare Abschreibung eines Vermögenswerts für einen einzelnen Zeitraum angibt.

Syntax

SLN(Cost, Salvage, Life)

Die SLN-Funktion hat folgende benannten Argumente:

Teil Beschreibung
Kosten Erforderlich. Double-Wert, der die Anlagekosten des Objekts angibt.
Retten Erforderlich. Double-Wert, der den Wert des Objekts am Ende seiner Nutzungsdauer angibt.
Leben Erforderlich. Double-Wert, der die Länge der Nutzungsdauer angibt.

HinwBemerkungeneise

Der Abschreibungszeitraum muss in derselben Einheit wie das Argument für die Lebensdauer ausgedrückt werden. Alle Argumente müssen positive Zahlen sein.

Beispiel

In diesem Beispiel wird die SLN-Funktion verwendet, um die lineare Abschreibung eines Vermögenswerts für einen einzelnen Zeitraum zurückzugeben, unter Berücksichtigung der Anfänglichkosten (InitCost), des Salvage-Werts am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal) und der Gesamtlebensdauer der Ressource in Jahren (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 auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.