ส่งกลับ สองชั้น ที่ระบุค่าเสื่อมราคาแบบผลรวมจํานวนปี (sum-of-years' digits) ของสินทรัพย์สําหรับงวดที่ระบุ
ไวยากรณ์
SYD( cost, salvage, life, period )
ไวยากรณ์ของฟังก์ชัน SYD มีอาร์กิวเมนต์ดังนี้
อาร์กิวเมนต์ |
คำอธิบาย |
ต้นทุน |
จำเป็น Double ที่ระบุต้นทุนเริ่มต้นของสินทรัพย์ |
ซาก |
จำเป็น สองเท่า ที่ระบุมูลค่าของสินทรัพย์เมื่อสิ้นสุดอายุการใช้งาน |
อายุการใช้งาน |
จำเป็น สองเท่า ที่ระบุความยาวของอายุการใช้งานของสินทรัพย์ |
รอบ ระยะ เวลา |
จำเป็น สองเท่า ที่ระบุรอบระยะเวลาที่จะคํานวณค่าเสื่อมราคาสินทรัพย์ |
ข้อสังเกต
อาร์กิวเมนต์ life และ period ต้องแสดงในหน่วยเดียวกัน ตัวอย่างเช่น ถ้า อายุ เป็นเดือน จะต้องกําหนด รอบระยะเวลา เป็นเดือนด้วย อาร์กิวเมนต์ทั้งหมดต้องเป็นจํานวนบวก
ตัวอย่างคิวรี
Expression |
ผลลัพธ์ |
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
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ 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) & "."