PORCENTAGEM

LUCASORL 09/07/2012 21:33:08
#405757
ola pessoal como faça a funçao para desconto nos texbox acima

Private Sub TotalTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TotalTextBox.GotFocus
Try
If DescontoTextBox.Text = [Ô][Ô] Then

TotalTextBox.Text = (PrecoTextBox.Text * (QtdTextBox.Text))

Else

TotalTextBox.Text = (PrecoTextBox.Text * (QtdTextBox.Text) / 100) - (TotalTextBox.Text)

End If
ALTAIR148 09/07/2012 21:55:46
#405759 Resposta escolhida
Amigo acho que seria assim:


 Dim ValorDesconto As Double
        If desconto.Text = Nothing Then
            total.Text = quantidade.Text * preco.Text
        Else
            ValorDesconto = preco.Text * quantidade.Text / 100 * desconto.Text
            total.Text = (quantidade.Text * preco.Text) - ValorDesconto
        End If
LUCASORL 09/07/2012 22:32:21
#405761
valeu altair funcionaou direitinho muito obrigado amigo

Dim ValorDesconto As Double
If DescontoTextBox.Text = Nothing Then
TotalTextBox.Text = QtdTextBox.Text * PrecoTextBox.Text
Else
ValorDesconto = PrecoTextBox.Text * QtdTextBox.Text / 100 * DescontoTextBox.Text
TotalTextBox.Text = (QtdTextBox.Text * PrecoTextBox.Text) - ValorDesconto
End If
ALTAIR148 09/07/2012 22:43:00
#405763
Ok, só não se esqueça de encerrar o tópico.

Abraços.
Tópico encerrado , respostas não são mais permitidas
Voltar