DESCONTO PERCENTUAL

HENRYMARQUES 21/07/2013 13:59:57
#426333
Bom dia, tenho um valor em um text1 e gostaria de quando eu clicar em um rótulo ele descontar 10% do text1 e esse valor ir para outro text2...

Ex: text2 = 100,00 quando eu clicar no RÓTULO abater 10% dos 100,00 e o valor restante aparecer no text1 = 90,00

Excel VBA,
Obrigado desde já pela grande ajuda...
PAYDANA 21/07/2013 14:24:23
#426334
[txt-color=#0000f0]Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) / 10
Text1.Text = Text1.Text - Val(Text2.Text)
End Sub[/txt-color]
MARCELOKROL 21/07/2013 14:49:34
#426336 Resposta escolhida
eu faço o calculo assim:

  
Dim Perc As Double
Dim Valor As Double
Dim Desconto As Double

Perc = 10
Valor = 100
Desconto = Valor * (Perc / 100)
Valor = Valor - Desconto

MsgBox [Ô]Desconto: [Ô] & Desconto & vbCrLf & [Ô]Valor com desconto: [Ô] & Valor
HENRYMARQUES 21/07/2013 16:28:23
#426337
Preciso assim: quando eu digito a quantidade o text_totalproduto já apresenta o valor multiplicado. quando eu clicar no rótulo [Ô]Gerar Desconto[Ô] o text_desc tem que apresentar 10% do valor do text_totalproduto.
Obrigado
LUCASVA 22/07/2013 09:06:21
#426351
amigo o marcelokrol ja te deu a solução:

Desconto = Valor * (Perc / 100)


agora se tu quer reduzir, faça:

valor = valor - desconto;

ou

valor = valor + desconto;;



use a logica;
Tópico encerrado , respostas não são mais permitidas
Voltar