Επιστρέφει μια τιμή Διπλής ακρίβειας που καθορίζει την απόσβεση ενός περιουσιακού στοιχείου για μια συγκεκριμένη χρονική περίοδο χρησιμοποιώντας τη μέθοδο του διπλά φθίνοντος υπολοίπου ή με κάποια άλλη μέθοδο που καθορίζετε.
Σύνταξη
DDB( κόστος; υπολειμματική; ζωή; περίοδος [; παράγοντας] )
Η σύνταξη της συνάρτησης DDB περιλαμβάνει τα παρακάτω ορίσματα:
|
Όρισμα |
Περιγραφή |
|
κόστος |
Υποχρεωτικό. Διπλός καθορισμός του αρχικού κόστους του περιουσιακού στοιχείου. |
|
Διάσωσης |
Υποχρεωτικό. Διπλός καθορισμός της αξίας του περιουσιακού στοιχείου στο τέλος της χρήσιμης ζωής του. |
|
διάρκεια |
Υποχρεωτικό. Διπλός καθορισμός διάρκειας ωφέλιμου κύκλου ζωής του περιουσιακού στοιχείου. |
|
Περίοδο |
Υποχρεωτικό. Διπλός καθορισμός της περιόδου για την οποία υπολογίζεται η απόσβεση του περιουσιακού στοιχείου. |
|
Παράγοντας |
Προαιρετικό. Μεταβλητή που καθορίζει το ρυθμό με τον οποίο μειώνεται το υπόλοιπο. Εάν παραλειφθεί, θεωρείται ίσο με το 2 (μέθοδος διπλής μείωσης). |
Παρατηρήσεις
Η μέθοδος του διπλά φθίνοντος υπολοίπου υπολογίζει την απόσβεση με επιταχυνόμενο ρυθμό. Η απόσβεση είναι υψηλότερη κατά την πρώτη περίοδο και μειώνεται στις μεταγενέστερες περιόδους.
Τα ορίσματα διάρκειας και περιόδου πρέπει να εκφράζονται στις ίδιες μονάδες. Για παράδειγμα, εάν η ζωή δίνεται σε μήνες, η περίοδος πρέπει επίσης να δίνεται σε μήνες. Όλα τα ορίσματα πρέπει να είναι θετικοί αριθμοί.
Η συνάρτηση DDB χρησιμοποιεί τον παρακάτω τύπο για να υπολογίσει την απόσβεση για μια δεδομένη περίοδο:
Απόσβεση / περίοδος = ((κόστος – υπολειμματική) * παράγοντας) / ζωή
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση DDB για να επιστρέψει την απόσβεση ενός περιουσιακού στοιχείου για καθορισμένη περίοδο, δεδομένου του αρχικού κόστους (InitCost), της υπολειμματικής αξίας στο τέλος της ωφέλιμης ζωής του περιουσιακού στοιχείου (SalvageVal), της συνολικής διάρκειας ζωής του περιουσιακού στοιχείου σε έτη (LifeTime) και της περιόδου σε έτη υπολογισμού της απόσβεσης (Depr).
Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, DeprConst YRMOS = 12 ' Number of months in a year.Fmt = "###,##0.00"InitCost = InputBox("What's the initial cost of the asset?")SalvageVal = InputBox("Enter the asset's value at end of its life.")MonthLife = InputBox("What's the asset's useful life in months?")Do While MonthLife < YRMOS ' 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 / YRMOS ' Convert months to years.If LifeTime <> Int(MonthLife / YRMOS) Then LifeTime = Int(LifeTime + 1) ' Round up to nearest year.End If DepYear = CInt(InputBox("Enter year for depreciation calculation."))Do While DepYear < 1 Or DepYear > LifeTime MsgBox "You must enter at least 1 but not more than " & LifeTime DepYear = InputBox("Enter year for depreciation calculation.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."
