הפונקציה SYD

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

תחביר

SYD(cost, salvage, life, period)

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

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

הערות

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

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

ביטוי	תוצאות
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

דוגמה זו משתמשת בפונקציה SYD כדי להחזיר את הפחת של נכס עבור תקופה שצוינה בהינתן העלות ההתחלתית (InitCost), ערך התשואה בסוף החיים השימושיים של הנכס (SalvageVal) ואת חיי הנכס הכוללים בשנים (LifeTime). התקופה בשנים שעבורה מחושב הפחת היא PDepr.

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, 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 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?")
Loop
LifeTime = 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?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."