الدالة DDB

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

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

بناء الجملة

DDB ( التكلفة ، الخردة ، العمر ، الفترة [، العامل] )

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

الوسيطة

الوصف

تكلفة

مطلوبة. تحديد التكلفة الاولي للأصل.

salvage

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

حياه

مطلوبة. تحديد المدة المفيدة لعمر الموجودات.

خلال

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

معاملا

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


ملاحظات

يحسب أسلوب الاستهلاك المتناقص المزدوج الاستهلاك بمعدل متزايد. يكون الإهلاك في أعلى معدلاته في الفترة الأولى ثم ينخفض في الفترات المتعاقبة.

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

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

الإهلاك /الفترة = ((التكلفة-الخردة) * العامل)/الحياة

المثال

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