החזרת כפול המציין את פחת הספרות של סכום השנים של נכס עבור תקופה שצוינה.
תחביר
SYD( cost, salvage, life, period )
תחביר הפונקציה SYD מכיל את הארגומנטים הבאים:
|
ארגומנט |
תיאור |
|
עלות |
נדרש. Double המציין את העלות ההתחלתית של הנכס. |
|
להציל |
נדרש. Double מציין את ערך הנכס בסוף חייו השימושים. |
|
חיים ; life |
נדרש. Double המציין את אורך החיים השימושי של הנכס. |
|
תקופת |
נדרש. Double המציין תקופה שעבורה מחושב פחת נכס. |
הערות
יש לבטאאת הארגומנטים של החיים והתקופה באותן יחידות. לדוגמה, אם החיים נתונה בחודשים, יש לתון תקופה גם בחודשים. כל הארגומנטים חייבים להיות מספרים חיוביים.
דוגמאות שאילתה
|
Expression |
תוצאות |
|
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample; |
הפונקציה מחשבת את הפחת עבור נכס שהערך שלו הוא LoanAmount, עם ערך תבליט של 10% ("LoanAmount" מוכפל ב- 0.1), בהתחשב בחיי הנכס השימושיים כ- 20 שנה. הפחת מחושב עבור השנה השניה. |
|
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample; |
הפונקציה מחזירה את הפחת עבור נכס שהערך שלו הוא "LoanAmount", עם ערך ברכה של $0, בהתחשב בחיי הנכס האפקטיביים כ- 20 שנים. התוצאות מוצגות בעמודה SLDepreciation. הפחת מחושב עבור השנה השלישית. |
דוגמה ל- VBA
הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
דוגמה זו משתמשת בפונקציה SYD כדי להחזיר את הפחת של נכס עבור תקופה שצוינה בהינתן העלות ההתחלתית של הנכס (InitCost), ערך התשואה בסוף החיים השימושיים של הנכס (SalvageVal) ואת חיי הנכס הכוללים בשנים (LifeTime). התקופה בשנים שעבורה מחושב הפחת היא PDepr.
Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDeprConst 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 life?")MonthLife = InputBox("What's the asset's useful life in months?")Do While MonthLife < YEARMONTHS ' Ensure period is >= 1 year. MsgBox "Asset life must be a year or more." MonthLife = InputBox("What's the asset's useful life in months?")LoopLifeTime = MonthLife / YEARMONTHS ' Convert months to years.If LifeTime <> Int(MonthLife / YEARMONTHS) Then LifeTime = Int(LifeTime + 1) ' Round up to nearest year.End If DepYear = CInt(InputBox("For which year do you want depreciation?"))Do While DepYear < 1 Or DepYear > LifeTime MsgBox "You must enter at least 1 but not more than " & LifeTime DepYear = CInt(InputBox("For what year do you want depreciation?"))LoopPDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."
