الدالة SYD

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

بناء الجملة

SYD( cost, salvage, life, period )

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

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

ملاحظات

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

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

تعبير	النتائج
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	يحسب الإهلاك لأصل بقيمة "LoanAmount"، بقيمة إنقاذ تبلغ 10٪ ("LoanAmount" مضروبا في 0.1)، مع مراعاة أن العمر المفيد للأصل هو 20 عاما. يتم حساب الإهلاك للسنة الثانية.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	إرجاع الإهلاك لأصل بقيمة "LoanAmount"، بقيمة إنقاذ قدرها 0 دولار، مع مراعاة أن العمر المفيد للأصل هو 20 عاما. يتم عرض النتائج في العمود SLDepreciation. يتم حساب الإهلاك للسنة الثالثة.

مثال 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) & "."

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

مثال VBA

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

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

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