SLN функциясы

Тек бір ғана мерзім үшін, мүліктің түзу сызық бойынша құнсыздануын сипаттайтын Double деректер түрі түріндегі мәнді қайтарады.

Синтаксис

SLN(баға, сақтау, қолданыс мерзімі)

SLN функциясы келесі аргумент:

Дәлел

Сипаттамасы

баға

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

сақтау

Міндетті. Мүліктің қолданыс мерзімінің соңғы кезеңіндегі құнын білдіретін Double түріндегі дәлел.

қолданыс мерзімі

Міндетті. Мүліктің пайдалы қолданыс мерзімінің ұзақтығын анықтайтын Double түріндегі дәлел.


Ескерімдер

Құнсыздану мерзімі де қолданыс мерзімініңаргумент көрсетілген бірлікте көрсетілуі тиіс.Барлық дәлелдер оң сандармен белгіленуі керек.

Мысал

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

Бұл мысал, SLN функциясын, мүліктің түзу сызықты құнсыздануын бір мерзімге қайтару үшін (InitCost), мүліктің пайдалы қолданыс мерзімі өткеннен соң қалған қалдық құны (SalvageVal), және мүліктің жылдарға шаққандағы толық пайдалы қолданыс мерзімін көрсету үшін қолданады (LifeTime).

Dim Fmt, InitCost, SalvageVal
Dim MonthLife, LifeTime, 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 useful life?")
MonthLife = InputBox("What's the asset's useful " & _
"life in months?")
' Ensure period is >= 1 year.
Do While MonthLife < YEARMONTHS
MsgBox "Asset life must be a year or more."
MonthLife = InputBox("What's the asset's " & _
"useful life in months?")
Loop
' Convert months to years.
LifeTime = MonthLife / YEARMONTHS
If LifeTime <> Int(MonthLife / YEARMONTHS) Then
' Round up to nearest year.
LifeTime = Int(LifeTime + 1)
End If
PDepr = SLN(InitCost, SalvageVal, LifeTime)
MsgBox "The depreciation is " & _
Format(PDepr, Fmt) & " per year."
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

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

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

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

×