ฟังก์ชัน SLN

ส่งกลับ Double ที่ระบุค่าเสื่อมราคาแบบเส้นตรงของสินทรัพย์สําหรับงวดเดียว

ไวยากรณ์

SLN(cost, salvage, life)

ฟังก์ชัน SLN มีอาร์กิวเมนต์ดังนี้

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

ข้อสังเกต

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

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

นิพจน์	ผลลัพธ์
SELECT SLN([LoanAmount],[LoanAmount]*.1,20) AS Expr1 FROM FinancialSample;	ส่งกลับค่าเสื่อมราคาสําหรับสินทรัพย์ที่มีมูลค่าเป็น "LoanAmount" ด้วยมูลค่าซาก 10%("LoanAmount" คูณด้วย 0.1) เมื่อพิจารณาว่าอายุการใช้งานของสินทรัพย์คือ 20 ปี
SELECT SLN([LoanAmount],0,20) AS SLDepreciation FROM FinancialSample;	ส่งกลับค่าเสื่อมราคาสําหรับสินทรัพย์ที่มีมูลค่าเป็น "LoanAmount" ด้วยมูลค่าซากเป็น $0 เมื่อพิจารณาว่าอายุการใช้งานของสินทรัพย์เป็น 20 ปี ผลลัพธ์จะแสดงในคอลัมน์ SLDepreciation

ตัวอย่าง VBA

ตัวอย่างนี้ใช้ฟังก์ชัน SLN เพื่อส่งกลับค่าเสื่อมราคาแบบเส้นตรงของสินทรัพย์สําหรับงวดเดียว โดยพิจารณาจากต้นทุนเริ่มต้นของสินทรัพย์ ()InitCost มูลค่าซาก ณ ตอนสิ้นสุดอายุการใช้งานของสินทรัพย์ ()SalvageVal และอายุรวมของสินทรัพย์ในปี ()LifeTime

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
            "life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS 
    MsgBox "Asset life must be a year or more."
    MonthLife = InputBox("What's the asset's " & _
                "useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS 
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
    ' Round up to nearest year.
    LifeTime = Int(LifeTime + 1)    
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
       Format(PDepr, Fmt) & " per year."