Applies ToAccess لـ Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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

بناء الجملة

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, SalvageValDim MonthLife, LifeTime, 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 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 IfPDepr = SLN(InitCost, SalvageVal, LifeTime)MsgBox "The depreciation is " & _       Format(PDepr, Fmt) & " per year."

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

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

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

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