הפונקציה SYD

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

תחביר

SYD(cost, salvage, life, period)

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

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

הערות

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

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

ביטוי	תוצאות
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) & "."