.... in a listbox ...
Private Sub Command2_Click()
salvage = 200
life = 10
cost = CDbl(Text1)
For year = 1 To 10
depreciation = DDB(cost, salvage, life, year)
totaldepr = (depreciation + totaldepr)
remainingval = (cost - totaldepr)
List1.AddItem depreciation & vbTab & _
year & vbTab & _
totaldepr & vbTab & _
remainingval
Next year
End Sub
.... in a listview ...
Private Sub Form_Load()
With ListView1
.ColumnHeaders.Add , , "depreciation"
.ColumnHeaders.Add , , "for year"
.ColumnHeaders.Add , , "total depriciation"
.ColumnHeaders.Add , , "Value"
.FullRowSelect = True
.HideSelection = False
.LabelEdit = lvwManual
.View = lvwReport
End With
End Sub
Private Sub Command3_Click()
Dim itmx As ListItem
salvage = 200
life = 10
cost = CDbl(Text1)
For year = 1 To 10
depreciation = DDB(cost, salvage, life, year)
totaldepr = (depreciation + totaldepr)
remainingval = (cost - totaldepr)
Set itmx = ListView1.ListItems.Add(, , depreciation)
itmx.SubItems(1) = year
itmx.SubItems(2) = totaldepr
itmx.SubItems(3) = remainingval
Next year
End Sub
--
Randy Birch
MVP Visual Basic
http://www.mvps.org/vbnet/
Please respond only to the newsgroups so all can benefit.
"nkp" <we***********@btinternet.com> wrote in message
news:bo**********@sparta.btinternet.com...
: ...trying to get the following result into a list box.
: Dim cost As Double
: Dim salvage As Double
: Dim life As Double
: Dim year As Double
: Dim factor As Variant
: Dim depreciation As Double
: Dim totaldepr As Double
: Dim remainingval As Double
:
:
: Private Sub Command1_Click()
: salvage = 200
: life = 10
: cost = CDbl(Text1)
: For year = 1 To 10
: depreciation = DDB(cost, salvage, life, year)
: totaldepr = (depreciation + totaldepr)
: remainingval = (cost - totaldepr)
:
: Print depreciation, "for year", year, "total
: depriciation=";totaldepr,"value="; remainingval
: Next year
: End Sub
:
:
: thanks for any guidance.
:
