الدالة SLN

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

ارجاع نوع بيانات مزدوج يحدد الاهلاك الثابت ل# اصل في فتره زمنيه واحده.

بناء الجملة

SLN ( التكلفه، و# salvage, life )

الداله SLN علي الوسيطات التاليه:

الوسيطة

الوصف

التكلفه

مطلوب. مزدوج يحدد التكلفه الاوليه ل# الاصل.

salvage

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

الحياه

مطلوب. مزدوج يحدد طول العمر الانتاجي الاصل.


ملاحظات

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

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في 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 لدينا.

×