הפונקציה SLN

החזרת כפול המציין את פחת הקו הישר של נכס עבור תקופה בודדת.

תחביר

SLN( cost, salvage, life )

הפונקציה SLN מכילה את הארגומנטים הבאים:

ארגומנט	תיאור
*עלות*	נדרש. Double המציין את העלות ההתחלתית של הנכס.
*להציל*	נדרש. Double מציין את ערך הנכס בסוף חייו השימושים.
*חיים ; life*	נדרש. Double המציין את אורך החיים השימושי של הנכס.

הערות

יש לבטא את תקופת הפחת באותה יחידה שבהארגומנט. כל הארגומנטים חייבים להיות מספרים חיוביים.

דוגמאות שאילתה

Expression	תוצאות
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

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

האם מידע זה היה שימושי?

תודה על המשוב!