Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Visual Basic > VB 2012 > Visual Basic 2012 General Discussion
|
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
 
Old March 21st, 2014, 10:35 AM
Registered User
 
Join Date: Mar 2014
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default 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
 
Old May 21st, 2014, 03:06 AM
Registered User
 
Join Date: May 2014
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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]
 
Old May 21st, 2014, 03:41 AM
Registered User
 
Join Date: May 2014
Posts: 3
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Try this and find out the best answer
http://www.daniweb.com/software-deve...w-to-in-vb.net
 
Old October 6th, 2018, 07:30 AM
Registered User
 
Join Date: Sep 2018
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.