الدالة SLN

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

بناء الجملة

SLN( cost, salvage, life)

الدالة SLN بها هذه الوسيطات:

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

ملاحظات

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

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

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

مثال VBA

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

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

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
            "life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS 
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's " & _
                "useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS 
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    ' Round up to nearest year.
    LifeTime = Int(LifeTime + 1)    
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
       Format(PDepr, Fmt) & " per year."

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

مثال VBA

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

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

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

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