DDB 函數

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

傳回 Double,指定計算的折舊資產特定期間內使用倍率遞減法或其他指定的方法。

語法

DDB ( 成本、 殘餘、 生命週期 [、 因子變異數]

DDB函數語法具有下列引數︰

引數

描述

成本

所需。指定資產的原始成本。

回收

所需。Double,指定在其生命週期結尾資產的值。

生命週期

所需。指定資產的生命週期的長度。

期間

所需。指定期間內資產折舊的計算方式。

因子變異數

選用。指定用以參加餘額的工資率的 variant。如果省略,則假設 2 (餘額法)。


註解

採用倍率遞減法計算的折舊加速的比率。折舊是最高的第一次,然後將會減少數額。

生命週期 期間引數必須是以相同的單位表示。例如,如果生命給定月份中,期間也必須授貸款期間。所有引數必須是正數。

DDB函數來計算指定期間內的折舊,使用下列公式︰

折舊 /期間= ((成本殘餘) *因子變異數) /生活

範例

附註: 下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊,請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考],並在 [搜尋] 方塊中輸入一個或多個字詞。

此範例使用DDB函數傳回計算的折舊資產在指定期間內的原始成本 (InitCost),結尾的資產的生命週期 (SalvageVal) 殘餘價值總生命週期內 (LifeTime),而且年的折舊餘額的週期計算 (Depr)。

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12 ' Number of months in a year.
Fmt = "###,##0.00"
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("Enter the asset's value at end of its life.")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YRMOS ' 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 / YRMOS ' Convert months to years.
If LifeTime <> Int(MonthLife / YRMOS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("Enter year for depreciation calculation."))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = InputBox("Enter year for depreciation calculation.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & _
Format(Depr, Fmt) & "."

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×