DDB İşlevi

Önemli : Bu makale makine çevisidir. Bkz. yasal uyarı. Bu makalenin İngilizce sürümüne buradan ulaşabilirsiniz.

Bir malın yıpranmasını çift azalan bakiye yöntemini veya sizin belirttiğiniz başka bir yöntemi kullanarak belirli bir süre için belirten double türünde bir değer döndürür.

Söz dizimi

Çiftazalanbakiye ( Maliyet, hurda, ömür, dönem [Faktör] )

Çiftazalanbakiye işlevinin sözdiziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız Değişken

Açıklama

Maliyet

Gerekli. Varlığın ilk maliyeti belirten double .

Kurtarılan

Gerekli. Varlık ömrünün sonundaki değerini belirten double .

Yaşam

Gerekli. Varlığın kullanım ömrü uzunluğunu belirten double .

Dönem

Gerekli. Dönem belirten double hangi varlık için amortisman hesaplanır.

Etmen

İsteğe bağlı. Hangi bakiyenin azalma oranı belirten variant. Belirtilmezse 2 (çift azalan yöntemi) olduğu varsayılır.


Notlar

Çift azalan bakiye yöntemi yıpranmayı hızlı bir oranda hesaplar. Yıpranma ilk dönemde en yüksek ve art arda dönemleri azaltır.

Yaşam ve Dönem bağımsız değişkenleri aynı cinsinden ifade gerekir. Yaşam aylarda verilirse, örneğin, Dönem de aylarda verilmesi gerekir. Tüm bağımsız değişkenlerin pozitif sayılar olması gerekir.

Çiftazalanbakiye işlevi, belirli bir dönem için amortisman hesaplamak için aşağıdaki formülü kullanır:

Yıpranma / süre = ((Maliyet - Hurda) * faktörü) / ömür

Örnek

Not : Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.

Bu örnekte toplam kullanım ömrü yıl (LifeTime) varlığın ilk maliyeti (InitCost) varlığın kullanım ömrü (SalvageVal) sonundaki hurda değeri verilen belirli bir dönem için bir malın yıpranmasını dönmek için Çiftazalanbakiye işlevinin kullanır ve dönem amortismanı olduğu yıl içinde (Depr) hesaplanır.

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) & "."

Not : Makine Çevirisi Yasal Uyarısı: Bu makale, insan müdahalesi olmadan bir bilgisayar sistemi tarafından çevrilmiştir. Microsoft bu makine çevirilerini İngilizce bilmeyen kullanıcıların Microsoft ürünleri, hizmetleri ve teknolojileriyle ilgili içeriklerden yararlanmasına yardımcı olmak için sunar. Bu makale makine çevirisi olduğundan sözcük, cümle dizilimi ve gramer hataları içerebilir.

Yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×