Applies ToAccess for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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 = ((kostnadrestverdi) * 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) & "."

Trenger du mer hjelp?

Vil du ha flere alternativer?

Utforsk abonnementsfordeler, bla gjennom opplæringskurs, finn ut hvordan du sikrer enheten og mer.

Fellesskap hjelper deg med å stille og svare på spørsmål, gi tilbakemelding og høre fra eksperter med stor kunnskap.