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

Duvidas em Calculo com Decimais entre Label e Textbox

 
2024 - VBA & Macros
Post Recente por chook 12 anos atrás
7 Posts
2 Usuários
0 Reactions
1,773 Visualizações
RSS
 chook
(@chook)
Posts: 197
Reputable Member
Topic starter
 

Amigos estou com um probleminha aqui, relativamente simples, mas não consegui resolver.

Vamos lá.

O código abaixo resulta entre a subtração do Label (75,25) e o textbox(0,00) só que o resultado no saldo a pagar apresenta (75,00). Não estou conseguindo fazer com que o label do saldo apresente os 0,25 centavos... :/

saldoapagar.Caption = Format(Val(Valor_Pedido_Total1.Caption) - Val(adiantamento.Value), "R$ " & "#,##0.00")

Forte abraço a todos!!

 
Postado : 18/07/2012 9:26 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente com ccur no lugar de val

saldoapagar.Caption = Format(CCur(Label1.Caption) - CCur(adiantamento.value), "R$ " & "#,##0.00")
 
Postado : 18/07/2012 9:54 am
 chook
(@chook)
Posts: 197
Reputable Member
Topic starter
 

Boa tarde Reinaldo,

está apresentando incompatibilidade no trecho CCur(adiantamento.Value)

Mesmo mantendo Val(adiantamento.Value) não calcula os centavos.

 
Postado : 18/07/2012 10:04 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

o que vem a ser adiantamento, é uma variavel definida ou um campo do form???? Qual a mensagem de erro??

 
Postado : 18/07/2012 10:51 am
 chook
(@chook)
Posts: 197
Reputable Member
Topic starter
 

A etstrutura e a abaixo, todos já estão carregando os valores no padrão 00,00

saldoapagar.Caption - Label
Label1.Caption - Label
adiantamento.value - Textbox

Após a carga é realizado o calculo, ai e que está apresentando erro de tipos incompativeis, pois voce colocou CCur em um textbox, acho eu.

Abraços!

 
Postado : 19/07/2012 5:44 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Chook,
para poder efetuar contas com valores oriundos de um textbox é preciso fazer a conversão desses dados de texto(default de um textbox) para valores numericos.
existem varias maneiras de se converter, como vc informou que usando Val não estava tendo o retorno esperado sugeri utilizar cCur, que converte para valor "monetario" com virgula.
Se puder disponibilize seu modelo, para que possa "verificar" in loco o que ocorre, pode ser que adiantamento.value não tenha valor??

 
Postado : 19/07/2012 5:54 am
 chook
(@chook)
Posts: 197
Reputable Member
Topic starter
 

Bom dia amigo,

Testando com val ao inves de ccur no textbox funcionou!

Valeu!

 
Postado : 19/07/2012 6:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico