For tax purposes an item my be depreciated over a period of years, n. With the straight-line method of depreciation, each year the item depreciates by 1/nth of its original value. (This is where I get confused because the depreciation during
the year is added to the depreciation at the end of the next year. Why?) With the double-declining-balance method of depreciation, each year the item depreciates by 2/nths of its value at the
beginning of that year. (in the last year it is depreciated by its value at the beginning of the year.) Write a program that:
a) requests description of item, year of purchase, cost, estimated life, and method of depreciation.
b)displays a depreciation schedule for item similar to schedule in figure 6.25
'name: ---------------------------
'date: 4/4/15
'project: Chapter 6 project 4
Option Explicit
'# 7 pg. 308
Private Sub cmdStraight_Click()
Dim i As String, YrP, c, yrD As Single
i = Val(txtItem.Text) 'item
YrP = Val(txtYrP.Text) 'year of purchase
c = Val(txtCost.Text) 'cost
yrD = Val(txtYrDeprec.Text) 'years to depreciate
For YrP = 1 To yrD
Call showDeprecStraight
Next YrP
End Sub
Private Sub cmdDbl_Click()
Dim i As String, YrP, c, yrD As Single
i = txtItem.Text 'item
YrP = Val(txtYrP.Text) 'year of purchase
c = Val(txtCost.Text) 'cost
yrD = Val(txtYrDeprec.Text) 'years to depreciate
For YrP = 1 To yrD
Call showDeprecDbl
Next YrP
End Sub
Private Sub showDeprecStraight()
Dim bV As Double, dDy As Double, EoY As Double
Dim i As String, YrP, c, yrD As Single
i = Val(txtItem.Text) 'item
YrP = Val(txtYrP.Text) 'year of purchase
c = Val(txtCost.Text) 'cost
yrD = Val(txtYrDeprec.Text) 'years to depreciate
picDisp.Cls
dDy = (1 * c) / yrD
bV = c
For YrP = 1 To yrD
picDisp.Print "Description: "; i,
picDisp.Print "Year of Purchase: "; YrP,
picDisp.Print "Cost of Item:"; FormatCurrency(c, 2),
picDisp.Print "Estimated Life: "; yrD
Next YrP
End Sub
Private Sub showDeprecDbl()
Dim bV As Double, dDy As Double, EoY As Double
Dim i As String, YrP, c, yrD As Single
i = Val(txtItem.Text) 'item
YrP = Val(txtYrP.Text) 'year of purchase
c = Val(txtCost.Text) 'cost
yrD = Val(txtYrDeprec.Text) 'years to depreciate
picDisp.Cls
dDy = (2 * c) / yrD
bV = c
For YrP = 1 To yrD
picDisp.Print "Description: "; i,
picDisp.Print "Year of Purchase: "; YrP,
picDisp.Print "Cost of Item: "; FormatCurrency(c, 2),
picDisp.Print "Estimated Life: "; yrD
Next YrP
End Sub
Private Sub cmdQuit_Click()
End
End Sub
this is what I have. I really don't understand what to do here so could I get some help just fixing some things? or at least some tips so that I can figure it out on my own?
