Logg på med Microsoft
Logg på, eller opprett en konto.
Hei,
Velg en annen konto.
Du har flere kontoer
Velg kontoen du vil logge på med.

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, 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) & "."

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.

Var denne informasjonen nyttig?

Hvor fornøyd er du med språkkvaliteten?
Hva påvirket opplevelsen din?
Når du trykker på Send inn, blir tilbakemeldingen brukt til å forbedre Microsoft-produkter og -tjenester. IT-administratoren kan samle inn disse dataene. Personvernerklæring.

Takk for tilbakemeldingen!

×