החזרת כפול המציין את פחת הקו הישר של נכס עבור תקופה בודדת.
תחביר
SLN(cost, salvage, life)
הפונקציה SLN מכילה את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
| עלות | נדרש. Double המציין את העלות ההתחלתית של הנכס. |
| להציל | נדרש. Double מציין את ערך הנכס בסוף חייו השימושים. |
| החיים | נדרש. Double המציין את אורך החיים השימושי של הנכס. |
הערות
יש לבטא את תקופת הפחת באותה יחידה שבה נמצא ארגומנטlife. כל הארגומנטים חייבים להיות מספרים חיוביים.
דוגמאות שאילתה
| ביטוי | תוצאות |
|---|---|
| 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."