Financial.DDB(Double, Double, Double, Double, Double) Yöntem

Tanım

Ad Alanı:
Microsoft.VisualBasic
Bütünleştirilmiş Kod:
Microsoft.VisualBasic.Core.dll
Bütünleştirilmiş Kod:
Microsoft.VisualBasic.dll
Kaynak:
Financial.vb
Kaynak:
Financial.vb
Kaynak:
Financial.vb
Kaynak:
Financial.vb
Kaynak:
Financial.vb

Çift azalan bakiye yöntemini veya belirttiğiniz başka bir yöntemi kullanarak belirli bir dönem için bir varlığın yıpranma değerini belirten bir değer döndürür.

public static double DDB(double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

Parametreler

Cost
Double

Gerekli. Varlığın ilk maliyeti.

Salvage
Double

Gerekli. Varlığın yararlı ömrünün sonundaki değeri.

Life
Double

Gerekli. Varlığın yararlı ömrünün uzunluğu.

Period
Double

Gerekli. Varlık yıpranma süresinin hesaplandığı dönem.

Factor
Double

Optional. Bakiyenin düşme oranı. Atlanırsa, 2 (çift azalan yöntem) varsayılır.

Döndürülenler

Double

Çift azalan bakiye yöntemini veya belirttiğiniz başka bir yöntemi kullanarak bir varlığın belirli bir süre için yıpranma süresi.

Özel durumlar

ArgumentException

Factor <= 0, Salvage< 0,Period< = 0 veya Period>Life.

Örnekler

Bu örnekte, ilk maliyet (), malın yararlı ömrünün sonundaki hurda değeri (DDB ), varlığın yılInitCost cinsinden toplam ömrü ()SalvageVal ve amortismanın hesaplandığı yıl cinsinden dönem (LifeTime) göz önüne alındığında, belirtilen bir dönem için yıpranma değerini döndürmek için işlevi kullanılırDepr.

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)

Açıklamalar

Çift azalan bakiye yöntemi, yıpranmayı hızlandırılmış oranda hesaplar. Yıpranma ilk dönemde en yüksek değerindedir ve bunu izleyen dönemlerde azalır.

Life ve Period bağımsız değişkenleri aynı birimlerde ifade edilmelidir. Örneğin, aylar içinde verilirse Life , Period aylar içinde de verilmelidir. Tüm bağımsız değişkenler pozitif sayılar olmalıdır.

İşlev, DDB belirli bir dönemin amortismanını hesaplamak için aşağıdaki formülü kullanır:

Amortisman / Dönem = ((Maliyet - Hurda) * Faktör) / Ömür

Şunlara uygulanır

Ayrıca bkz.