الدالة SYD

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

بناء الجملة

SYD( cost, salvage, life, period)

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

الوسيطة

الوصف

تكلفة

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

salvage

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

الحياة

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

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

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

ملاحظات

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

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

التعبير

النتائج

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) & "."

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

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

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

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

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

×