ฟังก์ชัน SYD

ส่งกลับ สองชั้น ที่ระบุค่าเสื่อมราคาแบบผลรวมจํานวนปี (sum-of-years' digits) ของสินทรัพย์สําหรับงวดที่ระบุ

ไวยากรณ์

SYD(cost, salvage, life, period)

ไวยากรณ์ของฟังก์ชัน SYD มีอาร์กิวเมนต์ดังนี้

อาร์กิวเมนต์	คำอธิบาย
ต้น ทุน	จำเป็น Double ที่ระบุต้นทุนเริ่มต้นของสินทรัพย์
ซาก	จำเป็น สองเท่า ที่ระบุมูลค่าของสินทรัพย์เมื่อสิ้นสุดอายุการใช้งาน
ชีวิต	จำเป็น สองเท่า ที่ระบุความยาวของอายุการใช้งานของสินทรัพย์
รอบ ระยะ เวลา	จำเป็น สองเท่า ที่ระบุรอบระยะเวลาที่จะคํานวณค่าเสื่อมราคาสินทรัพย์

ข้อสังเกต

อาร์กิวเมนต์ life และ period ต้องแสดงในหน่วยเดียวกัน ตัวอย่างเช่น ถ้า อายุ เป็นเดือน จะต้องกําหนด รอบระยะเวลา เป็นเดือนด้วย อาร์กิวเมนต์ทั้งหมดต้องเป็นจํานวนบวก

ตัวอย่างคิวรี

นิพจน์	ผลลัพธ์
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	คํานวณค่าเสื่อมราคาสําหรับสินทรัพย์ที่มีค่าเป็น "LoanAmount" ด้วยค่าซาก 10% ("เงินกู้ Amount" คูณด้วย 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) & "."