DDB İşlevi

Not: En güncel yardım içeriklerini, mümkün olduğunca hızlı biçimde kendi dilinizde size sunmak için çalışıyoruz. Bu sayfanın çevirisi otomasyon aracılığıyla yapılmıştır ve bu nedenle hatalı veya yanlış dil bilgisi kullanımları içerebilir. Amacımız, bu içeriğin sizin için faydalı olabilmesini sağlamaktır. Buradaki bilgilerin faydalı olup olmadığını bu sayfanın sonunda bize bildirebilir misiniz? Kolayca başvurabilmek için İngilizce makaleye buradan ulaşabilirsiniz.

Çift azalan bakiye yöntemini veya belirttiğiniz başka bir yöntemi kullanarak, bir malın belirli bir dönemdeki amortismanını belirten bir çift döndürür.

Söz Dizimi

Vseçvt ( maliyet, hurda, ömür, dönem [, faktör] )

Vseçdb işlevinin söz diziminde aşağıdaki bağımsız değişkenler bulunur:

Bağımsız Değişken

Açıklama

maliyet

Gerekli. Malın başlangıç maliyetini ikiye belirtme.

hurda

Gerekli. Kıymetin kullanım ömrünün sonundaki değerini çift belirtme.

Kullanım

Gerekli. Malın yararlı ömrünü çift belirtme.

süresini

Gerekli. Kıymet amortismanının hesaplandığı dönemi çift belirtme.

özelliğine

İsteğe bağlı. Bakiyenin azalma oranını belirten değişken. Atlanırsa, 2 (Çift azalan Yöntem) varsayılır.


Notlar

Ç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.

Ömür ve Dönem bağımsız değişkenlerinin aynı birimlerde ifade edilmesi gerekir. Örneğin, ömür ayları verilirse, Dönem içinde dönemin da verilmesi gerekir. Tüm bağımsız değişkenlerin pozitif sayılar olması gerekir.

Vseçvt işlevi, belirli bir dönemin amortismanını hesaplamak için aşağıdaki formülü kullanır:

Amortisman/ Dönem = ((MaliyetHurda) * 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, kıymetin amortismanını ilk maliyette (InitCost) verilen bir kıymetin amortismanını döndürmek için, malın (SalvageVal) yıl içinde kıymetin toplam ömrünü (_z2z _) ve amortismanın hesaplandığı dönem (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) & "."
Office 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.

×