Returnerer en dobbelt, der angiver afskrivningen på et aktiv i en bestemt periode ved hjælp af dobbeltsaldometoden eller en anden metode, du angiver.
Syntaks
DSA( købspris;restværdi;levetid;periode [;faktor] )
Syntaksen for funktionen DSA har disse argumenter:
|
Argument |
Beskrivelse |
|
pris |
Påkrævet. Dobbelt reelt tal , der angiver aktivets startpris. |
|
Bjærgning |
Påkrævet. Dobbelt reelt tal , der angiver aktivets værdi ved slutningen af dets levetid. |
|
levetid |
Påkrævet. Dobbelt reelt tal angiver aktivets levetid. |
|
Periode |
Påkrævet. Dobbelt reelt tal angiver den periode, aktivafskrivningen beregnes for. |
|
Faktor |
Valgfrit. Variant, der angiver den sats, som saldoen falder med. Hvis det udelades, antages 2 (dobbeltsaldometode). |
Bemærkninger
Dobbeltsaldometoden benyttes til beregning af hurtig afskrivning. Afskrivningen er størst i den første afskrivningsperiode og faldende i de efterfølgende perioder.
Argumenterne for levetid og periode skal udtrykkes i de samme enheder. Hvis der f.eks. er givet liv i måneder, skal perioden også angives i måneder. Alle argumenter skal være positive tal.
Funktionen DSA anvender følgende formel til at beregne afskrivningen for en given periode:
Afskrivning/ periode = ((købspris – restværdi) * faktor) / levetid
Eksempel
Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.
I dette eksempel bruges funktionen DSA til at returnere afskrivningen på et aktiv i en bestemt periode under forudsætning af startomkostningen (InitCost), restværdien ved aktivets levetid (SalvageVal), aktivets samlede levetid i år (LifeTime) og den periode i år, afskrivningen 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) & "."
