الدالة SYD

ترجع هذه الدالة النوع المزدوج الذي يحدد أرقام مجموع سنوات الإهلاك لأحد الأصول لفتره معينه.

بناء الجملة

SYD ( التكلفة ، الخردة ، العمر ، الفترة )

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

الوسيطة

الوصف

تكلفة

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

salvage

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

حياه

مطلوبة. مزدوج تحديد طول الفترة المفيدة في الأصل.

خلال

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

ملاحظات

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

أمثله استعلام

التعبير

النتائج

حدد SYD ([لوانامونت], [لوانامونت] *. 1, 20, 2) مثل Expr1 من فينانسيالسامبلي;

يحسب الإهلاك لأحد الأصول التي يتم تقييمها باعتباره "لوانامونت" ، مع القيمة المتبقية بنسبه 10% ("لوانامونت" مضروبه في 0.1 يتم حساب الإهلاك في السنه الثانية.

حدد SYD ([لوانامونت], 0, 20, 3) ك سلديبريسياتيون من فينانسيالسامبلي;

ترجع هذه الدالة الإهلاك الخاص بالأصول التي تم تقييمها باعتبارها "لوانامونت" ، بقيمه الخردة التي تبلغ $0 ، مع التفكير في الفترة المفيدة في الأصل حتى 20 سنه. يتم عرض النتائج في العمود سلديبريسياتيون. يتم حساب الإهلاك في السنه الثالثة.

مثال VBA

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

يستخدم هذا المثال الدالة SYD لإرجاع اهلاك الأصول لفتره محدده محدده التكلفة الاوليه للموجودات (InitCost) ، وقيمه الخردة في نهاية العمر الوظيفي المفيد للأصل (SalvageVal) ، وإجمالي عمر الأصل بالسنوات (LifeTime). الفترة الزمنيه في السنوات التي يتم حساب الإهلاك فيها PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' 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 / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."

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

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