SYD функциясы

Анықталған уақыт аралығы үшін мүліктің жылдық сомасын анықтайтын Double деректер түрі түріндегі мәнді қайтарады. .

Синтаксис

SYD(баға, ақырғы баға, пайдалану мерзімі, мерзім)

SYD функциясы синтаксисінің төмендегідей аргумент бар:

Дәлел

Сипаттама

баға

Міндетті. Активтің бастапқы бағасын белгілейтінDouble түріндегі мән.

ақырғы баға

Міндетті. Пайдалану мерзімінде активтің құнын белгілейтін Double түріндегі мән.

пайдалану мерзімі

Міндетті. Активтің пайдалану уақытының ұзақтығын белгілейтін Double түріндегі мән.

мерзім

Міндетті. Активті амортизациялау есептелетін уақытты белгілейтін Double түріндегі мән.


Ескерімдер

Ал пайдалану мерзімі және мерзімаргумент бірдей бірліктерде көрсетілуі қажет. Мысалы, пайдалану мерзімі айлармен көрсетілсе, мерзім де айлармен көрсетілуі керек. Дәлелдердің екеуі оң сандар болуы тиіс.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Төмендегі мысалда көрсетілгендей, SYD функциясы белгіленген мерзімге активтің амортизациясын қайтарады, функция үшін арнап, (InitCost) мүліктің бастапқы бағасы, (SalvageVal) активтің пайдалану мерзімінің соңындағы ақырғы құны, (LifeTime) активтің жылмен көрсетілген толық пайдалану мерзімі және (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) & "."
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×