Hàm SYD

Trả về một Double, xác định số khấu hao tổng cả năm của tài sản trong một kỳ xác định.

Cú pháp

SYD(cost, salvage, life, period)

Cú pháp hàm SYD có các đối số sau:

Đối số	Mô tả
chi phí	Bắt buộc. Đúp xác định chi phí ban đầu cho tài sản.
Trục vớt	Bắt buộc. Xác định kép giá trị của tài sản khi kết thúc thời gian hữu ích.
cuộc sống	Bắt buộc. Gấp đôi chỉ định độ dài tuổi thọ hữu ích của tài sản.
Dấu chấm	Bắt buộc. Kép, xác định kỳ mà tính khấu hao tài sản.

Chú thích

Các tham đối tuổi thọ và chu kỳ phải được biểu thị bằng cùng một đơn vị. Ví dụ, nếu tuổi thọ được tính bằng tháng, thì kỳ hạn cũng phải được tính bằng tháng. Tất cả các đối số phải là số dương.

Ví dụ về truy vấn

Biểu thức	Kết quả
SELECT SYD([LoanAmount],[LoanAmount]*.1,20,2) AS Expr1 FROM FinancialSample;	Tính khấu hao cho tài sản có giá trị "LoanAmount", với giá trị thu hồi là 10% ("LoanAmount" nhân với 0,1), khi xét đến tuổi thọ hữu ích của tài sản là 20 năm. Khấu hao được tính cho năm thứ hai.
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample;	Trả về khấu hao của tài sản có giá trị "LoanAmount", với giá trị thu hồi là $0, khi xem xét tuổi thọ hữu ích của tài sản là 20 năm. Kết quả được hiển thị trong cột SLDepreciation. Khấu hao được tính cho năm thứ ba.

Ví dụ về VBA

Ví dụ này sử dụng hàm SYD để trả về khấu hao của một tài sản trong một kỳ đã xác định, được tính đến chi phí ban đầu của tài sản (),InitCost giá trị thu hồi khi kết thúc tuổi thọ hữu ích của tài sản ()SalvageVal và tổng vòng đời của tài sản tính theo năm ().LifeTime Kỳ tính bằng năm để tính khấu hao là 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) & "."