SYD-Funktion
Gibt ein Double zurück, das die Summe der Jahresziffern der Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum angibt.
Syntax
SYD ( Kosten, Restwert, Lebensdauer, Zeitraum )
Die Syntax der SYD- Funktion hat die folgenden Argumente:
Streit | Beschreibung |
kosten | Erforderlich. Doppelte Angabe der Anschaffungskosten des Vermögenswerts. |
Bergung | Erforderlich. Doppelte Angabe des Vermögenswerts am Ende seiner Nutzungsdauer. |
Leben | Erforderlich. Doppelte Angabe der Nutzungsdauer des Vermögenswerts. |
Zeitraum | Erforderlich. Doppelte Angabe des Zeitraums, für den die Anlagenabschreibung berechnet wird. |
Bemerkungen
Die Argumente life und period müssen in denselben Einheiten ausgedrückt werden. Wenn beispielsweise das Leben in Monaten angegeben wird, muss auch die Periode in Monaten angegeben werden. Alle Argumente müssen positive Zahlen sein.
Abfragebeispiele
Ausdruck | Ergebnisse |
SELECT SYD([Darlehensbetrag],[Darlehensbetrag]*.1,20,2) AS Expr1 FROM FinancialSample; | Berechnet die Abschreibung für einen als "LoanAmount" bewerteten Vermögenswert mit einem Restwert von 10 % ("LoanAmount" multipliziert mit 0,1), wobei die Nutzungsdauer des Vermögenswerts 20 Jahre beträgt. Die Abschreibung wird für das zweite Jahr berechnet. |
SELECT SYD([LoanAmount],0,20,3) AS SLDepreciation FROM FinancialSample; | Gibt die Abschreibung für einen als „Darlehensbetrag" bewerteten Vermögenswert mit einem Restwert von 0 $ zurück, wobei die Nutzungsdauer des Vermögenswerts 20 Jahre beträgt. Die Ergebnisse werden in der Spalte SLDepreciation angezeigt. Die Abschreibung wird für das dritte Jahr berechnet. |
VBA-Beispiel
Hinweis: Die folgenden Beispiele veranschaulichen die Verwendung dieser Funktion in einem Visual Basic for Applications (VBA)-Modul. Um weitere Informationen zum Arbeiten mit VBA zu erhalten, wählen Sie Entwicklerreferenz in der Dropdown-Liste neben Suchen aus und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die SYD -Funktion verwendet, um die Abschreibung eines Vermögenswerts für einen bestimmten Zeitraum unter Berücksichtigung der Anschaffungskosten des Vermögenswerts ( InitCost ), des Restwerts am Ende der Nutzungsdauer des Vermögenswerts ( SalvageVal ) und der Gesamtlebensdauer des Vermögenswerts in Jahren zurückzugeben ( Lebenszeit ). Der Zeitraum in Jahren, für den die Abschreibung berechnet wird, ist PDepr .
Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, PDepr
Const YEARMONTHS = 12 ' Number of months in a year.
Fmt = "###,##0.00" ' Define money format.
InitCost = InputBox("What's the initial cost of the asset?")
SalvageVal = InputBox("What's the asset's value at the end of its life?")
MonthLife = InputBox("What's the asset's useful life in months?")
Do While MonthLife < YEARMONTHS ' 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 / YEARMONTHS ' Convert months to years.
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
LifeTime = Int(LifeTime + 1) ' Round up to nearest year.
End If
DepYear = CInt(InputBox("For which year do you want depreciation?"))
Do While DepYear < 1 Or DepYear > LifeTime
MsgBox "You must enter at least 1 but not more than " & LifeTime
DepYear = CInt(InputBox("For what year do you want depreciation?"))
Loop
PDepr = SYD(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "The depreciation for year " & DepYear & " is " & Format(PDepr, Fmt) & "."
No comments:
Post a Comment