SYD Function [VBA]
Returns the arithmetic-declining depreciation rate.
This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.
SYD (Cost as Double, Salvage as Double, Life as Double, Period as Double)
Double
Cost хароҷот.
Salvage арзиш дар охир.
LIFE: мӯҳлати истифода.
Period is the period number for which you want to calculate the depreciation.
REM ***** BASIC *****
Option VBASupport 1
Sub ExampleSYD
REM Calculate the yearly depreciation of an asset that cost $10,000 at
REM the start of year 1, and has a salvage value of $1,000 after 5 years.
Dim syd_yr1 As Double
REM Calculate the depreciation during year 1.
syd_yr1 = SYD( 10000, 1000, 5, 1 )
print syd_yr1 ' syd_yr1 is now equal to 3000.
End Sub