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

Başvuru

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

Önemli

Bazı bilgiler ürünün ön sürümüyle ilgilidir ve sürüm öncesinde önemli değişiklikler yapılmış olabilir. Burada verilen bilgilerle ilgili olarak Microsoft açık veya zımni hiçbir garanti vermez.

Çift azalan bakiye yöntemini veya belirttiğiniz başka bir yöntemi kullanarak belirli bir dönem için bir varlığın amortismanını 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

Gereklidir. Varlığın ilk maliyeti.

Salvage: Double

Gereklidir. Malın yararlı ömrünün sonundaki değeri.

Life: Double

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

Period: Double

Gereklidir. Varlık amortismanlarının hesaplandığı dönem.

Factor: Double

İsteğe bağlı. 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 ( ), varlığın yararlı ömrünün sonundaki hurda değeri (InitCost ), varlığın yılLifeTime cinsinden toplam ömrü () ve amortismanın hesaplandığı yıl cinsinden dönem (SalvageValDepr) göz önüne alındığında, belirli bir dönem için bir varlığın amortismanını döndürmek için işlevi kullanılırDDB.

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önteminde amortisman, hızlandırılmış orandan hesaplanır. Amortisman ilk dönemde en yüksek düzeydedir ve sonraki 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

Share via