Επιστρέφει το Διπλό που καθορίζει την απόσβεση ενός περιουσιακού στοιχείου για μια καθορισμένη περίοδο, με τη μέθοδο του αθροίσματος των ετών απόσβεσης.
Σύνταξη
SYD(κόστος; υπολειμματική; ζωή; περίοδος)
Η σύνταξη της συνάρτησης SYD περιλαμβάνει τα παρακάτω ορίσματα:
| Επιχείρημα | Περιγραφή |
|---|---|
| κόστος | Υποχρεωτικό. Διπλός προσδιορισμός του αρχικού κόστους του περιουσιακού στοιχείου. |
| Διάσωση | Υποχρεωτικό. Διπλασιασμός της αξίας του περιουσιακού στοιχείου στο τέλος της ωφέλιμης ζωής του. |
| Ζωή | Υποχρεωτικό. Διπλό καθορισμό της διάρκειας της ωφέλιμης ζωής του περιουσιακού στοιχείου. |
| τελεία και παύλα | Υποχρεωτικό. Διπλός προσδιορισμός της περιόδου για την οποία υπολογίζεται η απόσβεση του περιουσιακού στοιχείου. |
Παρατηρήσεις
Τα ορίσματα ζωής και περιόδου πρέπει να εκφράζονται στις ίδιες μονάδες. Για παράδειγμα, αν η ζωή δίνεται σε μήνες, η περίοδος πρέπει επίσης να δοθεί σε μήνες. Όλα τα ορίσματα πρέπει να είναι θετικοί αριθμοί.
Παραδείγματα ερωτήματος
| Έκφραση | Αποτελέσματα |
|---|---|
| SELECT SYD([LoanAmount];[LoanAmount]*.1;20;2) AS Expr1 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, 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 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?")
Loop
LifeTime = 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?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."