Egy tárgyi eszköz értékcsökkenését adja meg egy adott időszakra vonatkozóan a progresszív vagy egyéb megadott leírási modell alkalmazásával.
Szintaxis
KCSA(költség; maradványérték; leírási_idő; időszak* [; faktor] )
A KCSA függvény szintaxisa az alábbi argumentumokat foglalja magában:
| Argumentum | Leírás: |
|---|---|
| költség | Kötelező megadni. Az eszköz kezdeti beszerzési költségének megadása duplán. |
| mentés | Kötelező megadni. Az eszköz értékét duplán adja meg a hasznos élettartama végén. |
| élet | Kötelező megadni. Az eszköz hasznos élettartamának hosszát duplán adja meg. |
| időszak | Kötelező megadni. Dupla típusú érték, amely azt az időszakot adja meg, amelyre az eszköz értékcsökkenését számítja a rendszer. |
| tényező | Nem kötelező. Variant, amely megadja az egyenleg csökkenésének arányszámát. Ha nincs megadva, a függvény 2-t (dupla degresszív módszert) feltételez. |
Megjegyzések
Az állandó leírási kulcsot használó gyorsított értékcsökkenés gyorsított ütemben számolja el az amortizációt. Az értékcsökkenés nagysága az első időszakban a legnagyobb, az ezt követő időszakokban folyamatosan csökken.
Az élettartam és a periódus argumentumot azonos egységben kell kifejezni. Például, ha az életet hónapokban adják meg, akkor a időszakot is hónapokban kell megadni. Minden argumentumnak pozitív számnak kell lennie.
A KCSA függvény a következő egyenlet segítségével számítja ki az amortizációt egy adott időszakra:
Értékcsökkenés / időszak = ((költség – maradványérték) * faktor) / leírási idő
Példa
Megjegyzés
A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Ebben a példában a KCSA függvény egy eszköz értékcsökkenését adja vissza adott időszakra az alapján, figyelembe véve a kezdeti bekerülési költséget (InitCost), az eszköz hasznos élettartamának végén érvényes maradványértéket (SalvageVal), az eszköz teljes élettartamát években (LifeTime), valamint azt az időszakot (), amelyre az értékcsökkenést kiszámították ().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) & "."