الدالة SYD

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

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

بناء الجملة

SYD ( التكلفه، salvage, life، فتره )

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

الوسيطة

الوصف

التكلفه

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

salvage

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

الحياه

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

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

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


ملاحظات

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

مثال

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

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

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

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

×