إرجاع مزدوج يحدد الإهلاك الثابت للأصل لفترة واحدة.
بناء الجملة
SLN( cost, salvage, life )
تحتوي الدالة SLN على هذه الوسيطات:
الوسيطة |
الوصف |
تكلفة |
مطلوبة. تحديد مزدوج للتكلفة الأولية للأصل. |
انقاذ |
مطلوبة. تحديد مزدوج لقيمة الأصل في نهاية عمره المفيد. |
عمر |
مطلوبة. تحديد مزدوج لطول العمر المفيد للأصل. |
ملاحظات
يجب التعبير عن فترة الإهلاك في نفس الوحدة مثل العمروسيطة. يجب أن تكون جميع الوسيطات أرقاما موجبة.
أمثلة الاستعلام
تعبير |
النتائج |
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."