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

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
Ź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 malejącego 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

Required. Początkowy koszt zasobu.

Salvage
Double

Required. Wartość środka trwałego na koniec okresu eksploatacji.

Life
Double

Required. Długość użytecznego okresu eksploatacji środka trwałego.

Period
Double

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

Factor
Double

Optional. Wskaźnik, w którym saldo spada. W przypadku pominięcia przyjmuje się wartość 2 (metoda podwójnie malejąca).

Zwraca

Double

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

Wyjątki

ArgumentException

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

Przykłady

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

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. Wartość amortyzacji jest największa w pierwszym okresie i maleje w następnych okresach.

Argumenty Life i Period muszą być wyrażone w tych samych jednostkach. Na przykład, jeśli Life podane jest w miesiącach, Period należy również podać 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) * Factor) / Life

Dotyczy

Zobacz też