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

بناء الجملة

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, PDeprConst 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?")LoopLifeTime = 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?"))LoopPDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."

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

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

استكشف مزايا الاشتراك، واستعرض الدورات التدريبية، وتعرف على كيفية تأمين جهازك، والمزيد.

تساعدك المجتمعات على طرح الأسئلة والإجابة عليها، وتقديم الملاحظات، وسماعها من الخبراء ذوي الاطلاع الواسع.