CALCULAR EM MOEDA

USUARIO.EXCLUIDOS 13/12/2006 15:36:49
#189749
Olhei aqui mais não encontrei como eu queria !!

Tenho 6 textbox's todos estão formatados como Currency ou seja xxx,xx eu gostaria de calcular o valor de todos e gravar em uma variavel TOTAL que é integer, estou usando o VAL, mais não calcula certo, alguém poderia me ajudar ??
USUARIO.EXCLUIDOS 13/12/2006 15:40:27
#189751
pq vc está gravando valores Currency numa variável Integer ?
HUGOSSOUZA 13/12/2006 15:40:35
#189752 Resposta escolhida
faz assim pra calcular e salva em uma variavel double
ccur(Text1.Text) + CCur(Text2.Text) + ...
ALMARTI 13/12/2006 15:42:37
#189753
de uma olhada:

[c]Private Sub Command1_Click()
Dim x As Currency
Dim y As Currency
Dim total As Integer
Dim total1 As Currency

x = 1.5
y = 3.55

total = x + y
total1 = x + y
MsgBox total
MsgBox total1


End Sub


[/c]

Se voce colocar um valor currency em uma variavel inteira, haverá um arredondamento. Porque Total não é tambem currency?
USUARIO.EXCLUIDOS 13/12/2006 15:46:27
#189755
Puts pois é ... e agora ? HUGO e ALMARTI ... os dois me ajudaram, qual eu escolho ? rsrsrsrs !!
USUARIO.EXCLUIDOS 13/12/2006 15:52:38
#189757
só mais uma pergunta, porque quando eu digito o código abaixo da um erro dizendo "Type Maismatch" ?


MsgBox (CCur(venc1.Text) + CCur(venc2.Text) + CCur(venc3.Text) + CCur(venc4.Text) + CCur(venc5.Text) + CCur(venc6.Text))


Alguem sabe ??
USUARIO.EXCLUIDOS 13/12/2006 15:55:19
#189759
tentei também assim, mais não deu certo, porque será ?

Dim total as Double
total = CCur(venc1.Text) + CCur(venc2.Text) + CCur(venc3.Text) + CCur(venc4.Text) + CCur(venc5.Text) + CCur(venc6.Text)


Erro: O mesmo ... type maismatch !!
LIONHEART 13/12/2006 15:55:25
#189760
pq o formato do texto não é dinheiro.

Provavelmente os pontos e as virgulas estão no lugar errado.


tente esses valores:

1.50 e 1,50

se um deles funciona o outro vai dar pau mesmo.

outro motivo seria se os campos estiverem vazios.
USUARIO.EXCLUIDOS 13/12/2006 15:58:32
#189763
[S55][S55] Puts os campos texts estavam sem formatacao em Currency !!

Valeu hein Lion !!
Abraços cara !!
Tópico encerrado , respostas não são mais permitidas
Voltar