Zwraca liczbę podwójnej precyzji określającą amortyzację środka trwałego za pojedynczy okres.
Składnia
SLN(koszt, odzysk, czas_życia)
Funkcja SLN ma następujące argumenty:
| Argumenty argumentów | Opis |
|---|---|
| Koszt | Argument wymagany. Liczba podwójnej precyzji określająca początkowy koszt środka trwałego. |
| Odzysk | Argument wymagany. Liczba podwójnej wartości środka trwałego na koniec okresu użytkowania. |
| czas pracy | Argument wymagany. Liczba podwójna określająca długość okresu użytkowania środka trwałego. |
Uwagi
Okres amortyzacji musi być wyrażony w tej samej jednostce, co argument czas_życia. Wszystkie argumenty muszą być liczbami dodatnimi.
Przykłady kwerend
| Wyrażenie | Rezultat |
|---|---|
| SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Wyr1 FROM FinancialSample; | Zwraca amortyzację środka trwałego o wartości "KwotaPożyczki" z wartością odzyskaną równą 10% ("KwotaPożyczki" pomnożona przez 0,1), przyjmując, że okres użytkowania środka trwałego wynosi 20 lat. |
| SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; | Zwraca amortyzację środka trwałego o wartości "KwotaPożyczki" o wartości odzyskanej 0 zł, przy założeniu, że okres użytkowania środka trwałego wynosi 20 lat. Wyniki są wyświetlane w kolumnie SLDepreciation. |
Przykład kodu VBA
Uwaga
Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie użyto funkcji SLN w celu zwrócenia amortyzacji liniowej środka trwałego za pojedynczy okres, biorąc pod uwagę początkowy koszt środka trwałego (InitCost), wartość odzyskaną na koniec okresu użytkowania środka trwałego (SalvageVal) oraz całkowity okres użytkowania środka trwałego w latach (LifeTime).
Dim Fmt, InitCost, SalvageVal
Dim 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?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."