הפונקציה SLN

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

תחביר

SLN ( עלות, הצלה, חיים )

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

ארגומנט

תיאור

עלות

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

salvage

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

חיים

נדרש. כפול המציין את האורך של החיים השימושיים של הנכס.

הערות

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

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

ביטוי

תוצאות

בחר SLN ([LoanAmount], [LoanAmount] *. 1, 20) כ-Expr1 מ-FinancialSample;

הפונקציה מחזירה את הפחת של נכס המוערך כ-"LoanAmount", עם ערך הצלה של 10%("LoanAmount" כפול 0.1), בהתחשב בחיים השימושיים של הנכס להיות 20 שנים.

בחר SLN ([LoanAmount], 0, 20) כ-SLDepreciation מ-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."

הערה:  דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. תוכל לספר לנו אם המידע היה מועיל? הנה המאמר באנגלית לעיונך.​

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

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

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

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×