|
 |
Visual Basic 2012 General Discussion For any discussions about Visual Basic 2012topics which aren't related to a specific Wrox book |
Welcome to the p2p.wrox.com Forums.
You are currently viewing the Visual Basic 2012 General Discussion section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
|
 |
|
|
 |

March 21st, 2014, 10:35 AM
|
Registered User
|
|
Join Date: Mar 2014
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
How to compute sum of years digit in vb.net
below is the code i use to calculate for the sum of years digit depreciation which start from the first month of the year to last which is okay for me. but what i want now is, let say we are already done with two (2) months remaining ten (10) month. How can i compute like the 2 examples below.
2014 $5,500 $5,000.00 28% (10/12) x (5/15) $1,389 $1,389 $4,111
2015 $4,111 $5,000.00 28% [(2/12) x (5/15)] + [(10/12) x (4/15)] $1,389 $2,778 $2,722
Dim Cost, Scrap, Life, Period, BegValue, EndValue, Deprec, AccumDeprec, YearPurch As Double
Dim Fmt As String = "###,##0.00"
Cost = txtcost.Text
Scrap = txtscrap.Text
Life = txtlife.Text
YearPurch = txtyear.Text
Period = txtlife.Text
DataGridView1.ColumnCount = 6
DataGridView1.Columns(0).Name = "Begin Year"
DataGridView1.Columns(1).Name = "Begin Value"
DataGridView1.Columns(2).Name = "Depreciation"
DataGridView1.Columns(3).Name = "Accum.Depreciation"
DataGridView1.Columns(4).Name = "End Value"
DataGridView1.Columns(5).Name = "End Year"
DataGridView1.Rows.Clear()
BegValue = Cost
For Period = 1 To Life
Deprec = SYD(Cost, Scrap, Life, Period)
AccumDeprec += Deprec
EndValue = BegValue - Deprec
Dim row As String() = New String() {YearPurch, _
FormatNumber(BegValue), _
FormatNumber(Deprec), _
FormatNumber(AccumDeprec), _
FormatNumber(EndValue), _
YearPurch}
DataGridView1.Rows.Add(row)
BegValue = EndValue
If Period = Life - 1 Then
Deprec = BegValue - Scrap
Else
Deprec = SYD(Cost, Scrap, Life, Period)
End If
YearPurch += 1
Next
|

May 21st, 2014, 03:06 AM
|
Registered User
|
|
Join Date: May 2014
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
I a sorry to come back with the same question.
2014 $5500 $5000.00 28% (10/12) x (5/15) $1389 $1389 $4111
2015 $4,111 $5,000.00 28% [(2/12) x (5/15)] + [(10/12) x (4/15)] $1,389 $2,778 $2,722
below is the code i use to calculate for the sum of years digit depreciation which start from the first month of the year to last which is okay for me. but what i want now is, let say we are already done with two (2) months remaining ten (10) month. How can i compute like the 2 examples above.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Cost, Scrap, Life, Period, BegValue, EndValue, Deprec, AccumDeprec, YearPurch As Double
HTML Code:
[HTML] Dim Fmt As String = "###,##0.00"
Cost = TxtCost.Text
Scrap = txtscrap.Text
Life = TxtLife.Text
YearPurch = txtYear.Text
Period = TxtLife.Text
DataGridView1.ColumnCount = 6
DataGridView1.Columns(0).Name = "Begin Year"
DataGridView1.Columns(1).Name = "Begin Value"
DataGridView1.Columns(2).Name = "Depreciation"
DataGridView1.Columns(3).Name = "Accum.Depreciation"
DataGridView1.Columns(4).Name = "End Value"
DataGridView1.Columns(5).Name = "End Year"
DataGridView1.Rows.Clear()
BegValue = Cost
For Period = 1 To Life
Deprec = SYD(Cost, Scrap, Life, Period)
AccumDeprec += Deprec
EndValue = BegValue - Deprec
Dim row As String() = New String() {YearPurch, _
FormatNumber(BegValue), _
FormatNumber(Deprec), _
FormatNumber(AccumDeprec), _
FormatNumber(EndValue), _
YearPurch}
DataGridView1.Rows.Add(row)
BegValue = EndValue
If Period = Life - 1 Then
Deprec = BegValue - Scrap
Else
Deprec = SYD(Cost, Scrap, Life, Period)
End If
YearPurch += 1
Next
[/HTML]
|

May 21st, 2014, 03:41 AM
|
Registered User
|
|
Join Date: May 2014
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
|

October 6th, 2018, 07:30 AM
|
Registered User
|
|
Join Date: Sep 2018
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Thanks AlexandrarHistediedHJW it really helped a lot
kerala matrimony Justin tao seeger BMB
Last edited by ShardulNayak; October 13th, 2018 at 10:54 AM..
|
Thread Tools |
Search this Thread |
|
|
Display Modes |
Linear Mode
|
Posting Rules
|
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts
HTML code is Off
|
|
|
|
 |