none
Calcular porcentagem. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa noite. Estou com uma dúvida bem boba aqui.

    Preciso calcular a margem de lucro de um produto

    que seria o txtCusto + txtindice em % pra dar o resultado no txtVenda.

    Coloquei o seguinte código, porém o calculo está dando errado.

      Private Sub txtIndice_LostFocus(sender As Object, e As EventArgs) Handles txtIndice.LostFocus
        If txtCusto.Text = "" Then Exit Sub
        If txtIndice.Text = "" Then Exit Sub

        txtVenda.Text = ((txtCusto.Text) + (txtIndice.Text * 2 / 100))


    End Sub

    Exemplo: custo: 1.25 + 100% = 2,50

    Agradeço!

    quinta-feira, 1 de março de 2018 02:23
    |

Respostas

  • Question
    Entrar para Votar
    6
    Entrar para Votar

    Bom dia Thiago Marcondes,

    Como vc está calculando lucro, recomendo você fazer o seguinte, criar uma função chamada CalcuVenda, e chamar no LostFocus do txtIndice, e no LostFocus do txtCusto, assim vc consegue recalcular se mudar o custo.

    Veja como ficou:

        Private Sub CalculaVenda()
        If txtCusto.Text = "" Then Exit Sub
        If txtIndice.Text = "" Then Exit Sub

        Dim decCusto As Decimal
        Dim decIndice As Decimal

        If Decimal.TryParse(txtCusto.Text, decCusto) And Decimal.TryParse(txtIndice.Text, decIndice) Then
            txtVenda.Text = ((decCusto) + (decCusto * (decIndice / 100))).ToString()
        End If
    End Sub

    Att, Lucio Rogerio

    Espero ter ajudado, se ajudei, por favor Vote como Útil, e se resolvi seu problema, clique em Marcar como Resposta.

    quinta-feira, 1 de março de 2018 12:12
  • Question
    Entrar para Votar
    2
    Entrar para Votar

    Bom dia.

    Tente assim:

    Private Sub txtIndice_LostFocus(sender As Object, e As EventArgs) Handles txtIndice.LostFocus
        If txtCusto.Text = "" Then Exit Sub
        If txtIndice.Text = "" Then Exit Sub

        txtVenda.Text = ( cdec(txtCusto.Text) * (1 + (cdec(txtIndice.Text) / 100))).ToString


End Sub

    MARIANO1776

    • Marcado como Resposta Thiago Marcondes quinta-feira, 1 de março de 2018 21:42
    quinta-feira, 1 de março de 2018 14:09
    |

Todas as Respostas

  • Question
    Entrar para Votar
    2
    Entrar para Votar

    Bom dia.

    Tente assim:

    Private Sub txtIndice_LostFocus(sender As Object, e As EventArgs) Handles txtIndice.LostFocus
        If txtCusto.Text = "" Then Exit Sub
        If txtIndice.Text = "" Then Exit Sub

        txtVenda.Text = ( cdec(txtCusto.Text) * (1 + (cdec(txtIndice.Text) / 100))).ToString


End Sub

    MARIANO1776

    • Marcado como Resposta Thiago Marcondes quinta-feira, 1 de março de 2018 21:42
    quinta-feira, 1 de março de 2018 14:09
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Deu certo, obrigado novamente Mariano1776!
    quinta-feira, 1 de março de 2018 21:42
    |