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