Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Calculo Porcentagem...
 
Notifications
Clear all

Calculo Porcentagem com numero decimal

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
5 Posts
3 Usuários
0 Reactions
1,377 Visualizações
RSS
 victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Queria uma ajudinha aqui de vocês

Estou tentando fazer um calculo aqui com uma porcentagem e eu já tentei de tudo varias forma da net e não estou conseguindo

é mais ou menos assim tem um valor em MOEDA e outro valor em porcentagem, o que eu quero é subtrair a porcentagem do valor de moeda
ou seja MOEDA menos a PORCENTAGEM.
O que ta acontecendo é que o código abaixo esta pegando apenas o primeiro numero da porcentagem

Textbox1 = resultado
Textbox2 = moeda
Textbox3 = porcentagem = 3,19

 
    sVal1 = CLng(Textbox2.Value)

    sVal2 = Format(Val(Textbox3.Text), "#,##")

    'Calcula o Resultado, formata como Moeda e coloca o resultado no textbox
    Textbox1.Value = Format(sVal1 - (sVal1 * sVal2 / 100), "Currency")

desde já agradeço

 
Postado : 30/10/2015 7:30 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Bom Dia!

Altere para esse código:

    sVal1 = CLng(TextBox2.Value)

    sVal2 = CDbl(TextBox3.Text)

    'Calcula o Resultado, formata como Moeda e coloca o resultado no textbox
    TextBox1.Value = Format(sVal1 - (sVal1 * sVal2 / 100), "Currency")
 
Postado : 30/10/2015 7:47 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Este exemplo foca só o calculo.

Não considera formato em moeda e nem se na TexBox3 está com o formato em porcentagem.

TextBox1.Value = TextBox2.Value - (TextBox2.Value * TextBox3.Value) / 100

Att

 
Postado : 30/10/2015 7:53 am
 victorsam
(@victorsam)
Posts: 110
Estimable Member
Topic starter
 

Valew Wagner ficou perfeito

CDbl - Formata um valor em Porcentagem!?

E Alenxandre eu tentei esse seu ai mais não funciona é como se fosse para numero inteiros ele só pega o primeiro numero

tem que formatar Cdbl

Me.txtMenosPorc1 = CDbl(Me.txtValReceb1 - (Me.txtValReceb1 * Me.txtTaxa) / 100)
 
Postado : 30/10/2015 9:03 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

victorsam,

CDbl formata para números Double (números fracionários com casas decimais).

 
Postado : 30/10/2015 9:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico