Επιστρέφει μια τιμή Διπλής ακρίβειας που καθορίζει τη σταθερή απόσβεση ενός περιουσιακού στοιχείου για μία μόνο περίοδο.
Σύνταξη
SLN( κόστος; υπολειμματική; ζωή )
Η συνάρτηση SLN έχει τα εξής ορίσματα:
Όρισμα |
Περιγραφή |
κόστος |
Υποχρεωτικό. Διπλός καθορισμός του αρχικού κόστους του περιουσιακού στοιχείου. |
Διάσωσης |
Υποχρεωτικό. Διπλός καθορισμός της αξίας του περιουσιακού στοιχείου στο τέλος της χρήσιμης ζωής του. |
διάρκεια |
Υποχρεωτικό. Διπλός καθορισμός της διάρκειας ζωής του περιουσιακού στοιχείου. |
Παρατηρήσεις
Η περίοδος απόσβεσης πρέπει να εκφράζεται στην ίδια μονάδα με τη διάρκεια ζωήςόρισμα. Όλα τα ορίσματα πρέπει να είναι θετικοί αριθμοί.
Παραδείγματα ερωτημάτων
Expression |
Αποτελέσματα |
SELECT SLN([Ποσό_δανείου];[Ποσό_δανείου]*.1;20) AS Παράστ1 FROM FinancialSample; |
Επιστρέφει την απόσβεση ενός περιουσιακού στοιχείου αξίας "LoanAmount", με υπολειμματική αξία 10%("LoanAmount" επί 0,1), λαμβάνοντας υπόψη ότι ο ωφέλιμος χρόνος ζωής του περιουσιακού στοιχείου είναι 20 έτη. |
SELECT SLN([LoanAmount];0;20) AS SLDepreciation FROM FinancialSample; |
Επιστρέφει την απόσβεση ενός περιουσιακού στοιχείου αξίας "LoanAmount", με υπολειμματική αξία 0 $, λαμβάνοντας υπόψη ότι η ωφέλιμη διάρκεια ζωής του περιουσιακού στοιχείου είναι 20 έτη. Τα αποτελέσματα εμφανίζονται στη στήλη SLDepreciation. |
Παράδειγμα VBA
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση SLN για να επιστρέψει τη σταθερή απόσβεση ενός περιουσιακού στοιχείου για μία μόνο περίοδο, λαμβάνοντας υπόψη το αρχικό κόστος του περιουσιακού στοιχείου (InitCost), την υπολειμματική αξία στο τέλος της ωφέλιμης ζωής του περιουσιακού στοιχείου (SalvageVal) και τη συνολική διάρκεια ζωής του περιουσιακού στοιχείου σε έτη (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."