Financial.SYD(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

Ważne

Niektóre informacje odnoszą się do produktu w wersji wstępnej, który może zostać znacząco zmodyfikowany przed wydaniem. Firma Microsoft nie udziela żadnych gwarancji, jawnych lub domniemanych, w odniesieniu do informacji podanych w tym miejscu.

Zwraca wartość określającą sumę lat amortyzacji środka trwałego przez określony okres.

public:
 static double SYD(double Cost, double Salvage, double Life, double Period);

public static double SYD (double Cost, double Salvage, double Life, double Period);

static member SYD : double * double * double * double -> double

Public Function SYD (Cost As Double, Salvage As Double, Life As Double, Period As Double) 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ść okresu użytkowania zasobu.

Period: Double

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

Zwraca

Double

Suma lat oznacza amortyzację środka trwałego przez określony okres.

Wyjątki

ArgumentException

Salvage< 0, Period>Lifelub Period<=0.

Przykłady

W tym przykładzie użyto SYD funkcji , aby zwrócić amortyzację środka trwałego dla określonego okresu, biorąc pod uwagę początkowy koszt środka trwałego (InitCost), wartość ratowania na koniec okresu eksploatacji zasobu (SalvageVal) i łączny okres życia aktywów w latach (LifeTime).

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

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.

Dotyczy

Udostępnij za pośrednictwem