Returnerer et langt flyttall som angir avskrivningen for et aktivum i en bestemt tidsperiode ved hjelp av dobbel degressiv avskrivning eller en annen metode du angir.
Syntaks
DEGRAVS(kostnad; restverdi; levetid; periode* [, faktor] )
Syntaksen for funksjonen DEGRAVS har disse argumentene:
| Argumenter | Beskrivelse |
|---|---|
| koste | Obligatorisk. Dobbelt som angir den opprinnelige kostnaden for aktivumet. |
| berging | Obligatorisk. Dobbelt som angir verdien for aktivumet ved slutten av dets økonomiske levetid. |
| liv | Obligatorisk. Dobbelt som angir aktivumets økonomiske levetid. |
| Periode | Obligatorisk. Dobbelt som angir perioden som aktivaavskrivning beregnes for. |
| faktor | Valgfritt. Variant som angir satsen verdien avtar med. Hvis dette utelates, brukes 2 (dobbel degressmetode). |
Merknader
Dobbel degressiv avskrivning regner ut avskrivning raskt. Avskrivning er høyest i den første perioden og reduseres i etterfølgende perioder.
Argumentene levetid og periode må uttrykkes i samme enheter. For eksempel, hvis liv er gitt i måneder, må periode også angis i måneder. Alle argumenter må være positive tall.
DEGRAVS-funksjonen bruker følgende formel til å beregne avskrivningen 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 funksjonen DEGRAVS til å returnere avskrivningen for et aktivum for en angitt periode, når den opprinnelige kostnaden (InitCost), restverdien ved slutten av aktivumets økonomiske levetid (SalvageVal), aktivumets totale levetid i år (LifeTime) og perioden i år avskrivningen er beregnet for (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) & "."