تخطي إلى المحتوى الرئيسي
Office

الدالة SLN

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

بناء الجملة

.Sln ( التكلفة والخردة والحياة )

تحتوي الدالة .sln علي الوسيطات التالية:

الوسيطة

الوصف

تكلفة

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

salvage

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

حياه

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

ملاحظات

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

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

التعبير

النتائج

حدد .SLN ([لوانامونت], [لوانامونت] *. 1, 20) ك Expr1 من فينانسيالسامبلي;

ترجع هذه الدالة اهلاك الأصول التي يتم تقييمها باعتبارها "لوانامونت" ، مع قيمه الخردة التي تبلغ 10%("لوانامونت" مضروبه في 0.1

حدد .SLN ([لوانامونت], 0, 20) AS سلديبريسياتيون FROM فينانسيالسامبلي;

ترجع هذه الدالة الإهلاك الخاص بالأصول التي تم تقييمها باعتبارها "لوانامونت" ، بقيمه الخردة التي تبلغ $0 ، مع التفكير في الفترة المفيدة في الأصل حتى 20 سنه. يتم عرض النتائج في العمود سلديبريسياتيون.

مثال 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."

ملاحظة:  وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. إن هدفنا هو أن يكون هذا المحتوى مفيداً لك. هل يمكنك إعلامنا إذا ما كانت المعلومات مفيدة؟ فيما يلي المقالة باللغة الإنجليزية لتكون مرجعاً لك.

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

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

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

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

×