Wrox Programmer Forums How to compute sum of years digit in vb.net
 |
 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 software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com

March 21st, 2014, 10:35 AM
 Richmond Debrah 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}

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
 AlexandrarHistediedHJW 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}
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
 AlexandrarHistediedHJW Registered User Join Date: May 2014 Posts: 3 Thanks: 0 Thanked 0 Times in 0 Posts

Try this and find out the best answer
http://www.daniweb.com/software-deve...w-to-in-vb.net

October 6th, 2018, 07:30 AM
 ShardulNayak 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..

 Similar Threads Thread Thread Starter Forum Replies Last Post how to compute the total in datagridview vb 2010? handsome .NET 4 and Visual Studio 2010 General Discussions 18 March 21st, 2014 12:29 PM Sum of numbers that was insert will automatic compute and appear in total text field newphpcoder PHP Databases 0 December 23rd, 2010 02:34 AM Difference between GROUP BY and COMPUTE BY rhd110 SQL Server 2005 1 April 28th, 2008 03:31 AM Compute Balance zone Excel VBA 2 August 17th, 2007 09:16 AM Compute sum(column name) statement in DTS Package praragon SQL Server DTS 1 March 27th, 2006 10:23 PM