Returnerer et langt flyttall som angir avskrivningen for et aktivum for en bestemt tidsperiode ved hjelp av dobbel degressiv avskrivning eller en annen metode du angir.
Syntaks
DDB( kostnad, restverdi, levetid, periode [, faktor] )
Syntaksen for funksjonen DDB har følgende argumenter:
|
Argument |
Beskrivelse |
|
kostnad |
Obligatorisk. Langt flyttall som angir opprinnelige kostnader for aktivumet. |
|
Berging |
Obligatorisk. Langt flyttall som angir verdien for aktivumet på slutten av levetiden. |
|
tid |
Obligatorisk. Langt flyttall som angir lengden på aktivumets levetid. |
|
Periode |
Obligatorisk. Langt flyttall som angir perioden aktivumsavskrivning beregnes for. |
|
Faktor |
Valgfritt. Variant som angir hvor mye saldoen avslår. Hvis argumentet utelates, brukes 2 (dobbel degressiv metode). |
Kommentarer
Dobbel degressiv avskrivning regner ut avskrivning raskt. Avskrivning er høyest i den første perioden og reduseres i etterfølgende perioder.
Argumentene for levetid og periode må uttrykkes i de samme enhetene. Hvis for eksempel levetid gis i måneder, må periode også gis i måneder. Alle argumenter må være positive tall.
DDB-funksjonen bruker følgende formel til å beregne avskrivning for en gitt periode:
Avskrivning/ periode = ((kostnad – restverdi) * faktor) / levetid
Eksempel
Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.
I dette eksemplet brukes DDB-funksjonen til å returnere avskrivningen for et aktivum for en angitt periode gitt den opprinnelige kostnaden (InitCost), restverdien ved slutten av aktivumets levetid (SalvageVal), den totale levetiden for aktivumet i år (LifeTime), og perioden i årene som avskrivningen beregnes for (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) & "."
