الدالة DDB

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

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

بناء الجملة

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

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

الوسيطة

الوصف

التكلفه

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

salvage

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

الحياه

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

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

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

العوامل

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


ملاحظات

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

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

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

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

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في 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 لدينا.

×