Funkcja SLN

Zwraca wartość podwójnej amortyzacji środka trwałego za jeden okres metodą liniową.

Składnia

SLN(koszt;odzysk;czas życia)

Funkcja SLN ma następujące argumenty:

Argument

Opis

koszt

Argument wymagany. Dwukrotnie określając początkowy koszt środka trwałego.

odzysk

Argument wymagany. Dwukrotne określenie wartości środka trwałego na koniec okresu użytkowania.

życie

Argument wymagany. Dwukrotnie określając czas użytkowania środka trwałego.

Spostrzeżenia

Okres amortyzacji musi być wyrażony w tej samej jednostce, co okres użytkowaniaargument. Wszystkie argumenty muszą być liczbami dodatnimi.

Przykłady zapytań

Wyrażenie

Wyniki

SELECT SLN([Kwota_pożyczki];[Kwota_pożyczki]*.1;20) AS Wyr1 FROM FinancialSample;

Zwraca amortyzację środka trwałego o wartości "Kwota Pożyczki", z wartością odzyskaną 10%("Kwota Pożyczki" pomnożonym przez 0,1), przy uwzględnieniu, że czas użytkowania środka trwałego wynosi 20 lat.

SELECT SLN([Kwota Pożyczki];0;20) AS SLDemountation FROM FinancialSample;

Zwraca amortyzację środka trwałego o wartości "Kwota Pożyczki" z wartością odzyskaną w wysokości 0 zł przy uwzględnieniu, że czas użytkowania środka trwałego wynosi 20 lat. Wyniki są wyświetlane w kolumnie SLDe amortyzacja.

Przykład 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 zastosowano funkcję SLN w celu zwrócenia amortyzacji liniowej środka trwałego za pojedynczy okres przy początkowym kosztie środka trwałego (InitCost), wartości odzyskanej na koniec okresu użytkowania środka trwałego (SalvageVal) oraz całkowitego okresu 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."

Potrzebna dalsza pomoc?

Rozwijaj umiejętności związane z pakietem Office
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów pakietu Office

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×