SYD İş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 .

TOPLA-birini-amortismanını bir malın belirtilen bir dönem için belirten double türünde bir değer döndürür.

Söz dizimi

YAT ( Maliyet, hurda, ömür, dönem )

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


Notlar

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.

Ö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 verilen varlığın ilk maliyeti (InitCost) varlığın kullanım ömrü (SalvageVal) ve toplam kullanım ömrü içinde varlığın sonundaki hurda değeri belirtilen bir dönem için bir malın yıpranmasını dönmek için SYD işlevi kullanılmaktadır. Yıl (LifeTime). Dönem amortismanı hesaplandığı yıl PDeprverir.

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

×