Udostępnij za pośrednictwem

Financial.DDB(Double, Double, Double, Double, Double) Metoda

  • Odwołanie

Definicja

Przestrzeń nazw:
Microsoft.VisualBasic
Zestaw:
Microsoft.VisualBasic.Core.dll
Zestaw:
Microsoft.VisualBasic.dll
Źródło:
Financial.vb
Źródło:
Financial.vb
Źródło:
Financial.vb

Zwraca wartość określającą amortyzację środka trwałego dla określonego okresu przy użyciu metody podwójnego spadku salda lub innej określonej metody.

public static double DDB (double Cost, double Salvage, double Life, double Period, double Factor = 2);
static member DDB : double * double * double * double * double -> double
Public Function DDB (Cost As Double, Salvage As Double, Life As Double, Period As Double, Optional Factor As Double = 2) As Double

Parametry

Cost
Double

Wymagane. Początkowy koszt środka trwałego.

Salvage
Double

Wymagane. Wartość zasobu na koniec okresu eksploatacji.

Life
Double

Wymagane. Długość użytecznego okresu eksploatacji zasobu.

Period
Double

Wymagane. Okres, dla którego obliczana jest amortyzacja aktywów.

Factor
Double

Opcjonalny. Stopa spadku salda. Jeśli pominięto, zakłada się, że zakłada się, że przyjmuje się 2 (metoda podwójnego spadku).

Zwraca

Double

Amortyzacja środka trwałego dla określonego okresu przy użyciu metody podwójnego spadku salda lub innej określonej metody.

Wyjątki

ArgumentException

Factor<= 0, Salvage< 0,<Period = 0 lub Period>Life.

Przykłady

W tym przykładzie użyto DDB funkcji , aby zwrócić amortyzację środka trwałego dla określonego okresu, biorąc pod uwagę początkowy koszt (), wartość ratowania na koniec okresu eksploatacji zasobu (), łączny okres eksploatacji aktywów w latach (InitCostSalvageVal) i okres w latach, dla których obliczana jest amortyzacja (LifeTimeDepr).

Dim InitCost, SalvageVal, LifeTime, DepYear As Double
Dim Fmt As String = "###,##0.00"

InitCost = CDbl(InputBox("What's the initial cost of the asset?"))
SalvageVal = CDbl(InputBox("Enter the asset's value at end of its life."))
LifeTime = CDbl(InputBox("What's the asset's useful life in years?"))

' Use the SLN function to calculate the deprecation per year.
Dim SlnDepr As Double = SLN(InitCost, SalvageVal, LifeTime)
Dim msg As String = "The depreciation per year: " & Format(SlnDepr, Fmt)
msg &= vbCrLf & "Year" & vbTab & "Linear" & vbTab & "Doubling" & vbCrLf

' Use the SYD and DDB functions to calculate the deprecation for each year.
For DepYear = 1 To LifeTime
    msg &= DepYear & vbTab & 
        Format(SYD(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbTab & 
        Format(DDB(InitCost, SalvageVal, LifeTime, DepYear), Fmt) & vbCrLf
Next
MsgBox(msg)

Uwagi

Metoda podwójnie malejącego salda oblicza amortyzację w sposób przyspieszony. Amortyzacja jest najwyższa w pierwszym okresie i maleje w kolejnych okresach.

Argumenty Life i Period muszą być wyrażone w tych samych jednostkach. Jeśli na przykład Life dane są podane w miesiącach, Period muszą być również podane w miesiącach. Wszystkie argumenty muszą być liczbami dodatnimi.

Funkcja DDB używa następującej formuły do obliczenia amortyzacji dla danego okresu:

Amortyzacja / okres = (Koszt - Salvage) * Współczynnik) / Okres eksploatacji

Dotyczy

Zobacz też