SLN-Funktion
Gibt einen Wert vom Typ Double zurück, der die arithmetische Abschreibung eines Vermögenswerts über einen bestimmten Zeitraum angibt.
Function SLN( _ ByVal Cost As Double, _ ByVal Salvage As Double, _ ByVal Life As Double _ ) As Double
Parameter
- Cost
-
Erforderlich. Ein Wert vom Typ Double, der die Anschaffungskosten des Vermögenswerts angibt.
- Salvage
-
Erforderlich. Ein Wert vom Typ Double, der den Vermögenswert am Ende der Nutzungsdauer angibt.
- Life
-
Erforderlich. Ein Wert vom Typ Double, der die Länge der Nutzungsdauer des Vermögenswerts angibt.
| Ausnahmetyp | Fehlernummer | Bedingung |
|---|---|---|
| Life = 0. |
Beachten Sie die Spalte "Fehlernummer", wenn Sie Visual Basic 6.0-Anwendungen aktualisieren, die eine unstrukturierte Fehlerbehandlung verwenden. (Sie können die Fehlernummer mit der Number-Eigenschaft (Err-Objekt) vergleichen.) Wenn möglich, sollten Sie jedoch erwägen, eine solche Fehlersteuerung durch eine Übersicht über die strukturierte Ausnahmebehandlung für Visual Basic zu ersetzen.
In diesem Beispiel wird mit der SLN-Funktion die lineare Abschreibung eines Vermögenswerts über einen einzelnen Zeitraum zurückgegeben. Gegeben sind dabei die Anschaffungskosten (InitCost), der Restwert am Ende der Nutzungsdauer des Vermögenswerts (SalvageVal) und die Gesamtlebensdauer des Vermögenswerts in Jahren (LifeTime).
Dim InitCost, SalvageVal, LifeTime, DepYear As Double Dim Fmt As String = "###,##0.00" InitCost = CDbl(InputBox("What's the initial cost of the asset?")) SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life.")) LifeTime = CDbl(InputBox("What's the asset's useful life in years?")) ' Use the SLN function to calculate the deprecation per year. Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime) Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt) msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf ' Use the SYD and DDB functions to calculate the deprecation for each year. For DepYear = 1 To LifeTime msg &= DepYear & vbTab & _ Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & _ Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf Next MsgBox(msg)
Namespace: Microsoft.VisualBasic
Modul: Financial
Assembly: Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)
