Something is going wrong, but what?

[pensioenvizier]

I'm trying to calculate a family's savings assets.
I have 2 partners income...
For example income partner1 = 60.000
income partner2 = 20.000

In this case (ncomepartner1 + incomepartner2) - expenditure = saving assets

he needs to skip the first if statement, because its true and false = false
the second if statement is true and true = true
but still the outcome is calculated by the first if statement which is false.....
Whats going wrong.
Do i have to order my values?

Here's my code:


If brutoinkomenperiode1 > 55991(true) And brutoinkomenpartner(false) <= 19645 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf brutoinkomenperiode1 > 55991 And 19645 > brutoinkomenpartner < 33363 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf brutoinkomenperiode1 > 55991 And 33363 > brutoinkomenpartner < 55591 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


ElseIf brutoinkomenperiode1 > 55991 And brutoinkomenpartner > 55991 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)



End If

I hope im clear, because the code is written in dutch terms

Tips are much appreciated

Thanks in advance!

Marc

[pensioenvizier]

please note i already calculated the net income ( gross income after the dutch tax = net income )

[Españolita]

If brutoinkomenperiode1 > 55991(true) And brutoinkomenpartner(false) <= 19645 Then

(true) and (false) should not be there
Try this:

If Main > 55991 Then
   If Second < 19645 Then
      'deal with it
   ElseIf Second < 33363 Then
      'deal with it
   ElseIf Second < 55591 Then
      'deal with it
   Else
      'second is >55591 so deal with it
   End If
End If

[pensioenvizier]

i tryed it. But didn't work...

For 60.000 brutoinkomen1 and for brutoinkomenpartner 10.000 the program calculated it in the first if if statment.... although he should take the " ElseIf brutoinkomenpartner <= 19645 Then" if. i tryed to swap the values of brutoinkomenpartner but it didn't work.

If brutoinkomenperiode1 > 55991 Then

If brutoinkomenpartner > 55991 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf 33363 >= brutoinkomenpartner <= 55591 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
ElseIf 19645 >= brutoinkomenpartner <= 33363 Then
spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


ElseIf brutoinkomenpartner <= 19645 Then
spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

End If
End If

[Españolita]

First of all, please use [code] tags round your code, it makes it much easier to read.
Why do you insist on using this format?

33363 >= brutoinkomenpartner <= 55591 Then

When

 brutoinkomenpartner <= 55591 Then

is much easier to read, and understand.
The only thing to remember is to test the smallest number first, then the next biggest, then the next when you are testing for "less than" and the opposite when you are testing for "Greater than"

[Españolita]

I've just checked your method quickly using this:

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If 1 > CInt(TextBox1.Text) < 10 Then Label1.Text = "1-10"
        If 11 > CInt(TextBox1.Text) < 20 Then Label1.Text = "11-20"
    End Sub

If I enter 5, and set a breakpoint, it sets label1 text to "1-10" then sets it to "11-20" immediately after.
This shows that it is evaluating both as true. Not sure why and I don't have time to investigate at the moment, but it appears that is where your problem lies.

[pensioenvizier]

[code]
If brutoinkomenperiode1 > 55991 Then

If brutoinkomenpartner <= 19645 Then
spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


ElseIf 19645 > brutoinkomenpartner <= 33363 Then
spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf 33363 > brutoinkomenpartner <= 55591 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
ElseIf brutoinkomenpartner > 55991 Then

spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

End If
End If












If 33363 > brutoinkomenperiode1 < 55991 Then

If brutoinkomenpartner <= 19645 Then
spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


ElseIf 19645 > brutoinkomenpartner <= 33363 Then
spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf 33363 > brutoinkomenpartner <= 55591 Then

spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
ElseIf brutoinkomenpartner > 55991 Then

spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

End If

End If
If 19645 > brutoinkomenperiode1 < 33363 Then

If brutoinkomenpartner <= 19645 Then
spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


ElseIf 19645 > brutoinkomenpartner <= 33363 Then
spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf 33363 > brutoinkomenpartner <= 55591 Then

spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
ElseIf brutoinkomenpartner > 55991 Then

spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

End If

End If



If brutoinkomenperiode1 <= 19645 Then

If brutoinkomenpartner <= 19645 Then
spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


ElseIf 19645 > brutoinkomenpartner <= 33363 Then
spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

ElseIf 33363 > brutoinkomenpartner <= 55591 Then

spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
ElseIf brutoinkomenpartner > 55991 Then

spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

End If

End If
[code\]

i need one outcome but with a brutoinkomen1 is 30.000 and brutoinkomenpartner 40.000 and in this case expenditure (1500)


its 30.000 and 40.000 = 70.000 - 1500 = 68.500
but the output gives two values back.....
value1 = -1500
value2 = 28.500

[vbfbryce]

Are you sure this:

ElseIf 19645 > brutoinkomenpartner <= 33363 Then

is doing what you think it should be doing?

When I use the following code, and put a value that is clearly NOT between 1 and 10 in textbox1, it gives me "true" "true" and "false," so the first two do NOT work:

Private Sub checkCond()
        myVal = CInt(TextBox1.Text)

        If 1 > myVal < 10 Then
            test1 = True
        Else
            test1 = False
        End If

        If 1 < myVal < 10 Then
            test2 = True
        Else
            test2 = False
        End If

        If 1 < myVal And myVal < 10 Then
            test3 = True
        Else
            test3 = False
        End If

        Me.Text = test1 & test2 & test3
    End Sub

[pensioenvizier]

This is because of our taxrate in holland. the more we earn the more tax we pay
the first 0 to 19645 we pay 36,25 % tax
to 19456 to 33363 we pay 42 % tax
to 33364 to 55596 we pay 42 % tax
55596 more we pay 52 % tax


for example 60.000 income

19645 * 1-0,3625 = netincome 1
19646 to 33363 = taxable income *1-0,42 = netincome2
33364 to 55596 = taxable income *1-0,42=netincome3
60.000-55596 = taxable income * 1-0,52 =netincome4
totalnetincome = netincome1+netincome2+netincome3+netincome4

thats why im using in between signs ( 19456 > taxable income <= 33363)
but the totalnetincome is calculated in an other sub before this issue

[vbfbryce]

I understand the notion of a progressive tax rate, but I still think that will give you a result that you don't want. Test my example and see if you don't agree.

[TnTinMN]

thats why im using in between signs ( 19456 > taxable income <= 33363)
but the totalnetincome is calculated in an other sub before this issue

Do yourself and everyone else that you ask to look at your code a big favor and add this line to the top of your code.

Option Strict On

Then go and look at all the code that the IDE has flagged as incorrect. If statements expect Boolean values (True or False) or expressions that can be evaluated to a Boolean value.

This expression: 19645 > brutoinkomenpartner <= 33363 is the equivalent of:

Dim test1 as Boolean =  19645 > brutoinkomenpartner
Dim test2 as Boolean = (test1 <=33363)

The value of "test2" will be checked in the "If statement". Now since you obviously have Option Strict
Off, test2 will always be True. This is because CInt(True) = -1 and CInt(False) = 0 (the only two possible values for test1) and both of those will always be less than 33363.

[si_the_geek]

thats why im using in between signs ( 19456 > taxable income <= 33363)

While "between signs" might work for people doing the calculation (assuming you use < and <= rather than > and <= ), they don't work for programming.

What is actually happening is that two entirely separate checks are being done, and one of them is not what you would naturally expect.

One of the checks is being done first (I think taxable income <= 33363), and the result is being stored to a Boolean (either True or False). That Boolean value is then being converted to a number (0 or -1) so that it can be used in the other part of the checks... and you didn't intend to compare 19456 to 0 or -1.


In order to get the behaviour you want, you have to separate out the checks, as people have tried to show you above.

One way is like this:

        If (19456 > taxableIncome) And (taxableIncome <= 33363) Then

[code] ... [code\]

Close, but not quite... it should be: [code] ... [/code]



edit: I really shouldn't open multiple threads at the same time! TnTinMN said basically the same thing

[pensioenvizier]

If brutoinkomenperiode1 > 55991 Then

                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf (19456 > brutoinkomenpartner) And (brutoinkomenpartner <= 33363) Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf (33363 > brutoinkomenpartner) And (brutoinkomenpartner <= 55991) Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                End If
            End If
            If (33363 > brutoinkomenperiode1) And (brutoinkomenperiode1 <= 55991) Then

                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf (19456 > brutoinkomenpartner) And (brutoinkomenpartner <= 33363) Then
                    spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf (33363 > brutoinkomenpartner) And (brutoinkomenpartner <= 55991) Then

                    spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                End If

            End If
            If (19456 > brutoinkomenperiode1) And (brutoinkomenperiode1 <= 33363) Then

                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf (19456 > brutoinkomenpartner) And (brutoinkomenpartner <= 33363) Then
                    spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf (33363 > brutoinkomenpartner) And (brutoinkomenpartner <= 55991) Then

                    spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                End If

            End If



            If brutoinkomenperiode1 <= 19645 Then

                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf (19456 > brutoinkomenpartner) And (brutoinkomenpartner <= 33363) Then
                    spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf (33363 > brutoinkomenpartner) And (brutoinkomenpartner <= 55991) Then

                    spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                End If

            End If

Here is my code with all the combinations possible.
I tryed your advice si, but with my input i dont get any output, doenst matter which combination i take...

[Atenk]

[code]
Here is my code with all the combinations possible.
I tryed your advice si, but with my input i dont get any output, doenst matter which combination i take...

In this case you have to explain better what is this project.
Explain step by step, without forgetting any detail.

There's a lot of members willing to help you.

[Españolita]

As I mentioned in post #3....

Taking your code and modifying it so that I can test it, I came up with this which works.

If brutoinkomenperiode1 > 55991 Then
            If brutoinkomenpartner <= 19645 Then
                MessageBox.Show("less than 19645")
                'spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                'lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
            ElseIf brutoinkomenpartner <= 33363 Then
                MessageBox.Show("less than 33363")
                'spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                'lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
            ElseIf brutoinkomenpartner <= 55991 Then
                MessageBox.Show("less than 55991")
                'spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                'lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
            Else
                MessageBox.Show(">55991")
                'spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                'lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
            End If
        End If

Then you just need to expand this nested loop into another nested loop based on brutoinkomenperiode1 as you already have done but ...... Start by testing brutoinkomenperiode1 <19645 first, then test brutoinkomenperiode1 < 33363 etc.

[pensioenvizier]

 If brutoinkomenperiode1 <= 19645 Then
                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf brutoinkomenpartner <= 33363 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf brutoinkomenpartner <= 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                End If
            End If


            If brutoinkomenperiode1 <= 33363 Then

                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf brutoinkomenpartner <= 33363 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf brutoinkomenpartner <= 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                End If
            End If


            If brutoinkomenperiode1 <= 55991 Then

                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf brutoinkomenpartner <= 33363 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf brutoinkomenpartner <= 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                End If
            End If


            If brutoinkomenperiode1 > 55991 Then
                If brutoinkomenpartner <= 19645 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                ElseIf brutoinkomenpartner <= 33363 Then
                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                ElseIf brutoinkomenpartner <= 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                ElseIf brutoinkomenpartner > 55991 Then

                    spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                    lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                End If
            End If

i tryed this Españolita, the only combination which gives value back is both income are above 55596.... the other input gives a output of zero....

[pensioenvizier]

This sub is part of class saving assets..
First i have a radiobutton on my form --> married and unmarried as soon married is checked then
the form asks for income ( gross income) (partner and partner) then the sub calculate net income comes.
Then theres a button. if i click this button there will be a value with expenditure importerd from an excel sheet.
Then comes this sub comes.. this calculates the saving assets ( income(aggregate income of both partners - expenditure)
Also tested it with case

Case brutoinkomenperiode1 > 55991
Case brutoinkomenperiode1 33363 to 55991
case brutoinkomenperiode1 19645 to 33363
case brutoinkomenperiode1 < 19645

but didnt work either

[Españolita]

I can't see any problem with your If .... statements and the order is correct, so it may be a problem with the value of the variables input. I would set a breakpoint at the beginning of this piece of code and check the values of the variables, are they what you expect them to be? Step through the code statement by statement, again checking the values of variables are what you expect.

[pensioenvizier]

I installed express edition on my other laptop and now he gives the right output...
Is this common problem?

[si_the_geek]

No it isn't... the most likely reasons for a change in behaviour is that you either have different settings on the computers (and the code isn't good enough to cope with that), or haven't given exactly the same inputs to your code (eg: on one you typed "23456" and on the other you typed " 23456").

As a general rule, if you aren't totally certain why your code is behaving incorrectly, it is your fault somehow... the trick is to work out what you did wrong, and that gets easier with experience.

[pensioenvizier]

this code did the trick and converting my project to an other laptop
its working smoothly!

 Select Case brutoinkomenperiode1

                Case Is > 55991

                    If brutoinkomenpartner <= 19645 Then
                        spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                    ElseIf brutoinkomenpartner <= 33363 Then
                        spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                    ElseIf brutoinkomenpartner <= 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    ElseIf brutoinkomenpartner > 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf4 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    End If

                Case 33363 To 55991


                    If brutoinkomenpartner <= 19645 Then
                        spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                    ElseIf brutoinkomenpartner <= 33363 Then
                        spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                    ElseIf brutoinkomenpartner <= 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    ElseIf brutoinkomenpartner > 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf3 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    End If

                Case 19645 To 33363


                    If brutoinkomenpartner <= 19645 Then
                        spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                    ElseIf brutoinkomenpartner <= 33363 Then
                        spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                    ElseIf brutoinkomenpartner <= 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    ElseIf brutoinkomenpartner > 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf2 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    End If


                Case Is <= 19645

                    If brutoinkomenpartner <= 19645 Then
                        spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf1partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)


                    ElseIf brutoinkomenpartner <= 33363 Then
                        spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf2partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)

                    ElseIf brutoinkomenpartner <= 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf3partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    ElseIf brutoinkomenpartner > 55991 Then

                        spaarvermogen = CInt((nettoinkomennaschijf1 + nettoinkomennaschijf4partner) - uitgaveperiode1plusinflatie)
                        lstUitvoer.Items.Add("Uw spaarvermogen op jaarbasis in periode 1 bedraagt samen: " & spaarvermogen)
                    End If
            End Select

thanks guys for helping!
never experienced this before, such a helpful forum

[TnTinMN]

I have to ask, is this a homework assignment? If it is then no big deal. However, you mentioned importing some things from Excel and it started to sound more like a real application. Where I am going with this is that if this is some real application, then I question your decision to hard code magic numbers into the logic. The tax bracket information should be an input to the program that can be changed without the need to rewrite the program. You may even want to make the tax computations a separate library so if the computation logic changes, you could just update that library.

If your program is running on one computer and not another, you really need to track down the cause. I would assume that you are parsing numeric inputs (text entered by the user) somewhere in your code. You indicated that this is for the Dutch market; the first thing that comes to mind is to check that your numeric parsing is handling your local use of the decimal mark and thousands separators properly (i.e. does the variable hold the value you think it does).

[pensioenvizier]

I was about to start a new thread, but my next question is, is it possible if i have controlpage, only to manage the variables which change constantly. For example a textbox which manipulate the age ( in the vb code the age is 45 and in the textbox ( controlpanelpage) i can manupulate th code to ( for example 46 ) which changes the code 45 into 46 ?

[Españolita]

You can use a flat file (.txt .csv etc) or a database or My.Settings to persist values.
Your control page allows the user to change the values of these variables however you think is best.

[pensioenvizier]

i want to integrate it into tabcontrol ---> a controlpage which allows me to change variables in my vb code.
For example age 67 is integrated into my code, now i have a textbox on my controlpage. In this textbox i can manipulate this 67 variable into , lets say 68. Is this possible? if so is there an example which explains this?