الدالة DDB

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ارجاع نوع بيانات مزدوج يحدد اهلاك احد الاصول ل# فتره زمنيه معينه ب# استخدام اسلوب الاستهلاك المتناقص المزدوج او اساليب اخري تحددها.

بناء الجملة

DDB ( التكلفه، salvage, life، فتره [, factor] )

يحتوي بناء جمله الداله DDB علي الوسيطات التاليه:

الوسيطة

الوصف

التكلفه

مطلوب. مزدوج يحدد التكلفه الاوليه ل# الاصل.

salvage

مطلوب. مزدوج يحدد قيمه الاصل في نهايه فتره صلاحيته.

الحياه

مطلوب. مزدوج يحدد طول العمر الانتاجي الاصل.

الفتره الزمنيه

مطلوب. مزدوج يحدد الفتره الزمنيه ل# ما هو الاصل يتم حساب الاهلاك.

العوامل

اختياري. متغير يحدد معدل يرفض الرصيد. اذا تم حذفها، من المفترض 2 (اسلوب المتناقص المزدوج).


ملاحظات

تحسب طريقه الرصيد المتناقص المزدوج الاهلاك ب# معدل متزايد. الاهلاك العليا في الفتره الاولي و# ينخفض في الفترات المتعاقبه.

يجب ان يتم التعبير عنه الوسيطات طابعا اكثر حيويه و# الفتره الزمنيه في نفس وحدات. علي سبيل المثال، اذا كان يتم منح الحياه في الاشهر، يجب ايضا توفير الفتره الزمنيه في الاشهر. يجب ان تكون كافه الوسيطات ارقاما موجبه.

تستخدم الداله DDB الصيغه التاليه ل# حساب الاهلاك ل# فتره معينه:

الاهلاك / فتره = ((التكلفه - salvage) * العوامل) / حياته

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

يستخدم هذا المثال الداله DDB ل# ارجاع اهلاك الاصول ل# فتره معينه ب# اعطاء التكلفه الاوليه (InitCost)، قيمه الخرده في نهايه العمر الانتاجي ب# الاصل (SalvageVal)، دوره حياه اجمالي الاصل ب# السنوات (LifeTime)، و# الفتره ب# السنوات التي يتم الاهلاك حساب (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) & "."

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×