Palauttaa Double-arvon, joka määrittää resurssin poiston tietylle ajanjaksolle käyttämällä double-declining balance -menetelmää tai jotakin muuta määrittämääsi menetelmää.
Syntaksi
DDB( kustannus, loppuarvo, elinaika, kausi [, kerroin] )
DDB-funktion syntaksissa on seuraavat argumentit:
|
Argumentti |
Kuvaus |
|
kustannus |
Pakollinen. Kaksinkertainen , joka määrittää resurssin alkukustannukset. |
|
Pelastaa |
Pakollinen. Kaksinkertainen , joka määrittää resurssin arvon sen käyttöiän lopussa. |
|
kesto |
Pakollinen. Kaksinkertainen , joka määrittää käyttöomaisuuden käyttöiän pituuden. |
|
kausi |
Pakollinen. Kaksinkertainen , joka määrittää kauden, jolle käyttöomaisuuden poisto lasketaan. |
|
Tekijä |
Valinnainen. Muuttuja, joka määrittää kurssin, jolla saldo laskee. Jos se jätetään pois, oletusarvona on 2 (double-declining method). |
Huomautuksia
DDB laskee poistot degressiivisesti. Tällöin poisto on suurin ensimmäisellä kaudella ja pienenee seuraavilla kausilla.
Elinkaari - ja kausiargumentit on ilmaistava samoissa yksiköissä. Jos esimerkiksi elämä annetaan kuukausina, piste on annettava myös kuukausina. Kaikkien argumenttien on oltava positiivisia lukuja.
DDB-funktio laskee poiston tietyltä ajanjaksolta seuraavan kaavan avulla:
Poisto / kausi = ((kustannus – loppuarvo) * kerroin) / aika
Esimerkki
Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä DDB-funktiota käytetään palauttamaan sijoituksen poisto tietyltä ajanjaksolta, kun otetaan huomioon alkuperäiset kustannukset (InitCost), sijoituksen käyttöiän lopussa oleva jäännösarvo (SalvageVal), sijoituksen kokonaiskesto vuosina (LifeTime) ja kausi vuosina, joilta poisto lasketaan (Depr).
Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, DeprConst 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?")LoopLifeTime = 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.")LoopDepr = DDB(InitCost, SalvageVal, LifeTime, DepYear)MsgBox "The depreciation for year " & DepYear & " is " & _Format(Depr, Fmt) & "."
