Μετάβαση στο κύριο περιεχόμενο
Office

Συνάρτηση SLN

Επιστρέφει έναν διπλό καθορισμό της ευθείας απόσβεσης ενός περιουσιακού στοιχείου για μία μόνο περίοδο.

Σύνταξη

SLN ( κόστος, διάσωση, ζωή )

Η συνάρτηση SLN περιλαμβάνει τα παρακάτω ορίσματα:

Όρισμα

Περιγραφή

κόστος

Υποχρεωτικό. Διπλός καθορισμός αρχικού κόστους του παγίου.

; υπολειμματική;

Υποχρεωτικό. Διπλά καθορίζοντας την αξία του περιουσιακού στοιχείου στο άκρο της ωφέλιμης ζωής του.

ζωής

Υποχρεωτικό. Διπλός καθορισμός του μήκους της ωφέλιμης ζωής του περιουσιακού στοιχείου.

Παρατηρήσεις

Η περίοδος απόσβεσης πρέπει να εκφράζεται στην ίδια μονάδα με τηόρισμαζωής . Όλα τα ορίσματα πρέπει να είναι θετικοί αριθμοί.

Παραδείγματα ερωτημάτων

Παράσταση

Αποτελέσματα

Επιλέξτε SLN ([LoanAmount], [LoanAmount] *. 1, 20) ως Έκφρ1 από το FinancialSample.

Επιστρέφει την απόσβεση ενός περιουσιακού στοιχείου που αποτιμάται ως "LoanAmount", με αξία αχρήστου 10%% "LoanAmount" πολλαπλασιαζόμενο επί 0,1), λαμβάνοντας υπόψη τη ωφέλιμη διάρκεια ζωής του περιουσιακού στοιχείου ως 20 έτη.

Επιλέξτε SLN ([LoanAmount], 0, 20) ως SLDepreciation από το 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."

Σημείωση:  Αυτή η σελίδα έχει μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας πείτε εάν σας βοήθησαν αυτές οι πληροφορίες; Εδώ θα βρείτε το άρθρο στα Αγγλικά για να το συμβουλεύεστε.

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×