Επιστρέφει μια τιμή Διπλής ακρίβειας που καθορίζει την απόσβεση ενός περιουσιακού στοιχείου για μια καθορισμένη περίοδο με το άθροισμα των ετών απόσβεσης.
Σύνταξη
SYD( κόστος; υπολειμματική; ζωή; περίοδος )
Η σύνταξη της συνάρτησης SYD περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
κόστος |
Υποχρεωτικό. Διπλός καθορισμός του αρχικού κόστους του περιουσιακού στοιχείου. |
|
Διάσωσης |
Υποχρεωτικό. Διπλός καθορισμός της αξίας του περιουσιακού στοιχείου στο τέλος της χρήσιμης ζωής του. |
|
διάρκεια |
Υποχρεωτικό. Διπλός καθορισμός της διάρκειας ζωής του περιουσιακού στοιχείου. |
|
Περίοδο |
Υποχρεωτικό. Διπλός καθορισμός της περιόδου για την οποία υπολογίζεται η απόσβεση του περιουσιακού στοιχείου. |
Παρατηρήσεις
Τα ορίσματα διάρκειας και περιόδου πρέπει να εκφράζονται στις ίδιες μονάδες. Για παράδειγμα, εάν η ζωή δίνεται σε μήνες, η περίοδος πρέπει επίσης να δίνεται σε μήνες. Όλα τα ορίσματα πρέπει να είναι θετικοί αριθμοί.
Παραδείγματα ερωτημάτων
|
Expression |
Αποτελέσματα |
|
SELECT SYD([Ποσό_δανείου];[Ποσό_δανείου]*.1;20;2) AS Παράστ1 FROM FinancialSample; |
Υπολογίζει την απόσβεση ενός περιουσιακού στοιχείου αξίας "LoanAmount", με υπολειμματική αξία 10% ("LoanAmount" επί 0,1), λαμβάνοντας υπόψη ότι ο ωφέλιμος χρόνος ζωής του περιουσιακού στοιχείου είναι 20 έτη. Η απόσβεση υπολογίζεται για το δεύτερο έτος. |
|
SELECT SYD([LoanAmount];0;20;3) AS SLDepreciation FROM FinancialSample; |
Επιστρέφει την απόσβεση ενός περιουσιακού στοιχείου αξίας "LoanAmount", με υπολειμματική αξία 0 $, λαμβάνοντας υπόψη ότι η ωφέλιμη διάρκεια ζωής του περιουσιακού στοιχείου είναι 20 έτη. Τα αποτελέσματα εμφανίζονται στη στήλη SLDepreciation. Η απόσβεση υπολογίζεται για το τρίτο έτος. |
Παράδειγμα VBA
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση SYD για να επιστρέψει την απόσβεση ενός περιουσιακού στοιχείου για καθορισμένη περίοδο, δεδομένης της αρχικής δαπάνης του περιουσιακού στοιχείου (InitCost), της υπολειμματικής αξίας στο τέλος της χρήσιμης ζωής του περιουσιακού στοιχείου (SalvageVal) και του συνολικού κύκλου ζωής του περιουσιακού στοιχείου σε έτη (LifeTime). Η περίοδος των ετών υπολογισμού της απόσβεσης είναι PDepr.
Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 life?")MonthLife = InputBox("What's the asset's useful life in months?")Do While MonthLife < YEARMONTHS ' Ensure period is >= 1 year. MsgBox "Asset life must be a year or more." MonthLife = InputBox("What's the asset's useful life in months?")LoopLifeTime = MonthLife / YEARMONTHS ' Convert months to years.If LifeTime <> Int(MonthLife / YEARMONTHS) Then LifeTime = Int(LifeTime + 1) ' Round up to nearest year.End If DepYear = CInt(InputBox("For which year do you want depreciation?"))Do While DepYear < 1 Or DepYear > LifeTime MsgBox "You must enter at least 1 but not more than " & LifeTime DepYear = CInt(InputBox("For what year do you want depreciation?"))LoopPDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."
