Applies ToAccess dla Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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, SalvageValDim MonthLife, LifeTime, PDeprConst 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _       Format(PDepr, Fmt) & " per year."

Potrzebujesz dalszej pomocy?

Chcesz uzyskać więcej opcji?

Poznaj korzyści z subskrypcji, przeglądaj kursy szkoleniowe, dowiedz się, jak zabezpieczyć urządzenie i nie tylko.

Społeczności pomagają zadawać i odpowiadać na pytania, przekazywać opinie i słuchać ekspertów z bogatą wiedzą.