LIA-Funktion

Artikel
10/16/2024

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:

Bestandteil	Beschreibung
kosten	Erforderlich. Double-Wert, der die Anlagekosten des Objekts angibt.
Bergung	Erforderlich. Double-Wert, der den Wert des Objekts am Ende seiner Nutzungsdauer angibt.
Leben	Erforderlich. Double-Wert, der die Länge der Nutzungsdauer angibt.

Hinweise

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, wenn die anfänglichen Kosten (InitCost), der Wert für die Rettung am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal) und die Gesamtlebensdauer der Ressource in Jahren (LifeTime) angegeben ist.

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

Funktionen (Visual Basic for Applications)

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.

Freigeben über