SYD 函式

發行項
08/21/2008

更新：2007 年 11 月

傳回 Double，指定特定期間內資產的年數合計折舊。

Function SYD( _
   ByVal Cost As Double, _
   ByVal Salvage As Double, _
   ByVal Life As Double, _
   ByVal Period As Double _
) As Double

參數

Cost
必要項。Double 指定資產的初始成本。
Salvage
必要項。Double 指定資產在其報廢時的值。
Life
必要項。Double 指定資產的使用年限。
Period
必要項。Double 指定資產折舊的計算期間。

例外狀況

例外狀況類型	錯誤代碼	條件
ArgumentException	5	Salvage < 0、Period > Life 或 Period <=0。

如果將使用非結構化錯誤處理的 Visual Basic 6.0 應用程式升級，請參閱「錯誤代碼」資料行 (您可以將錯誤代碼與 Number 屬性 (Err 物件) 比對)。但是，請盡可能考慮以 Visual Basic 的結構化例外處理概觀取代這類錯誤控制項。

備註

Life 及 Period 引數必須使用相同單位來表示。例如，如果以月份表示 Life，則也必須以月份表示 Period。所有引數都必須為正數。

範例

這個範例會使用 SYD 函式來傳回指定期間的資產折舊，前提是要提供資產的初始成本 (InitCost)、資產報廢時的變賣值 (SalvageVal)，以及資產的總使用年限 (LifeTime)。

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & _
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & _
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)