הפונקציה DDB

הערה: אנו מעוניינים לספק לך את תוכן העזרה העדכני ביותר במהירות האפשרית, בשפה שלך. דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. האם תוכל לספר לנו אם המידע הועיל לך, בחלק התחתון של דף זה? לנוחותך, הנה המאמר באנגלית.

החזרת כפול המציין את הפחת של נכס עבור תקופת זמן מסוימת באמצעות שיטת היתרה הפוחתת הכפולה או כל שיטה אחרת שתציין.

תחביר

DDB ( עלות, salvage, life, תקופת [factor] )

תחביר הפונקציה DDB מכיל את הארגומנטים הבאים:

ארגומנט

תיאור

עלות

נדרש. כפול המציין עלות התחלתית של הנכס.

salvage

נדרש. כפול המציין את ערך הנכס בסוף החיים האפקטיבי שלו.

חיים

נדרש. כפול המציין את אורך החיים האפקטיבי של הנכס.

תקופה

נדרש. כפול המציין את תקופת נכסים אילו מחושב פחת.

פקטור

אופציונלי. משתנה המציין קצב לפיו היתרה. אם לא צוין, הוא ייחשב 2 (שיטת הפוחתת הכפולה).


הערות

שיטת היתרה הפוחתת הכפולה מחשבת פחת בקצב מואץ. הפחת הוא הגבוה ביותר בתקופה הראשונה ובתקופות רצופים.

יש לבטא את הארגומנטים lifeותקופת באותן יחידות. לדוגמה, אם life צוין בחודשים, יש גם אפשרות period בחודשים. כל הארגומנטים חייבים להיות מספרים חיוביים.

הפונקציה DDB משתמשת בנוסחה הבאה כדי לחשב פחת בתקופה נתונה:

פחת / תקופת = ((עלותsalvage) * פקטור) / life

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

דוגמה זו משתמשת בפונקציה DDB כדי להחזיר את הפחת של נכס עבור תקופה שצוינה בהינתן עלות התחלתית (InitCost), ערך הניצולת בסוף החיים האפקטיבי של הנכס (SalvageVal), חיי הנכס בשנים הכולל (_z2z _), ומחשב התקופה בשנים שעבורו היא הפחת (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const 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?")
Loop
LifeTime = 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.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."
שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×