Zwraca wartość typu Podwójna precyzja określającą amortyzację liniową środka trwałego w jednym okresie.
Składnia
SLN( koszt;odzysk;czas_życia )
Funkcja SLN zawiera następujące argumenty:
Argument |
Opis |
koszt |
Argument wymagany. Podwójna precyzja określająca początkowy koszt środka trwałego. |
Ratownictwa |
Argument wymagany. Podwójna precyzja określająca wartość środka trwałego na koniec okresu użytkowania. |
czas pracy |
Argument wymagany. Podwójna precyzja określająca czas użytkowania środka trwałego. |
Uwagi
Okres amortyzacji musi być wyrażony w tej samej jednostce coargumentżycia . Wszystkie argumenty muszą być liczbami dodatnimi.
Przykłady zapytań
Expression |
Wyniki |
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Wyr1 FROM FinancialSample; |
Zwraca amortyzację środka trwałego o wartości "Kwota_pożyczki", o wartości odzyskiwanej równej 10%("Kwota Pożyczki" pomnożonej przez 0,1), przy uwzględnieniu okresu użytkowania środka trwałego na 20 lat. |
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample; |
Zwraca amortyzację środka trwałego o wartości "Kwota_pożyczki" o wartości odzyskiwanej 0 zł przy uwzględnieniu okresu użytkowania środka trwałego na 20 lat. Wyniki zostaną wyświetlone w kolumnie SLDepreciation. |
Przykład języka 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 liniowej amortyzacji środka trwałego za jeden 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łkowitą żywotność ś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."