PublicClassForm1DimcostAsDouble,salvageAsDouble,lifeAsDouble,periodAsDoublePrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clickcost=TextBox1.Textsalvage=TextBox2.Textlife=TextBox3.TextTextBox4.Text=FormatCurrency((SLN(cost,salvage,life)))defds123vbCrLf\'SLN函数返回一个Double,在一期里指定一项资产的直线折旧。\'语法SLN(cost,salvage,life)\'SLN函数有下列命名参数:部分描述cost必要,Double,指定资产的初始成本。\'salvage必要,Double,指定资产在可用年限结束后的价值。\'life必要,Double,指定资产的可用年限。\'说明折旧期间必须用与life参数相同的单位表示。\'所有参数都必须是正数。EndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clickcost=TextBox1.Textsalvage=TextBox2.Textlife=TextBox3.TextForperiod=1TolifeTextBox4.Text=TextBox4.Textdefds123FormatCurrency(DDB(cost,salvage,life,period))defds123vbCrLfNextperiod\'计算一笔资产在给定期间内的折旧值\'语法:DDB(cost,salvage,life,period[,factor])\'Cost必需。资产原值。\'Salvage必需。资产在折旧期末的价值(有时也称为资产残值)。此值可以是0。\'Life必需。资产的折旧期数(有时也称作资产的使用寿命).....................life=12其它要相应\'Period必需。需要计算折旧值的期间。Period必须使用与life相同的单位。\'Factor可眩余额递减速率。如果factor被省略,则假设为2(双倍余额递减法)。\'这五个参数都必须为正数EndSubPrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Clickcost=TextBox1.Textsalvage=TextBox2.Textlife=TextBox3.TextForperiod=1TolifeTextBox4.Text=TextBox4.Textdefds123FormatCurrency(SYD(cost,salvage,life,period))defds123vbCrLfNextperiod\'指定某项资产在一指定期间用年数总计法计算的折旧\'SYD(cost,salvage,life,period)\'cost必要。Double指定资产的初始成本。\'salvage必要。Double指定资产在可用年限结束后的价值。\'life必要。Double指定资产的可用年限。\'period必要。Double指定计算资产折旧所用的那一期间。\'必须用相同的单位表示life和period参数。\'例如,如果life用月份表示,则period也必须用月份表示。............关键,请酌改\'所有参数都必须是正数。EndSubEndClass |