CASAS DECIMAIS

MOREIRA 05/09/2007 11:27:12
#234227
estou com essa rotina, nao consigo obter o centavos no resultado do valor..

oq pode esta acontecendo ?

Private Sub CmdDescontos_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim Total As Double
'-----------------------------------------------------
A = txtImposto.Text
B = txtTotalPagar.Text
C = txtDesconto.Text

Total = (A - B + C)
txtTotalLiquido.Text = Val(Total)

End Sub
USUARIO.EXCLUIDOS 05/09/2007 11:29:56
#234228


troca o Val por CDBL

isso resolve
USUARIO.EXCLUIDOS 05/09/2007 11:30:24
#234230
a declaração para integer tira os centavos...pois integer é inteiro...
tente tambem
formatar o resultado assim

   
Total = format(cdbl(A) - cdbl(B) + cdbl(C), "#,##0.00;(#,##0.00)")


att,

marcelo bressan
USUARIO.EXCLUIDOS 05/09/2007 11:31:43
#234232
Formata também...

Total = (A - B + C)
txtTotalLiquido.Text = format(cdbl(Total),"###,###,##0.00")
USUARIO.EXCLUIDOS 05/09/2007 11:33:43
#234234
Ops é tudo integer dai nunca vai ter centavos...
Pra trabalhar com valores tem que ser tudo DOUBLE (centavos) melhor que usar o CURRENCY que não existe mais nas versões mais novas do VB.
USUARIO.EXCLUIDOS 05/09/2007 11:34:46
#234237

Meu é o seguinte

o problema tb ta nas variaeis

coloque Single ou Long ou Double ao inves de integer ok
MOREIRA 05/09/2007 20:27:03
#234366
ok amigos deu certo, porem o resultado esta assim: -150,00

como fosse negativo
USUARIO.EXCLUIDOS 06/09/2007 04:48:54
#234380

Moreira é o seguinte:

Nessa sequencia q vc fez: Total = (A - B + C), tenta assim

Total = Format((A - (B + C)), "Currency" ou "#,##0.00;(#,##0.00)")

Substitua o A, B e C pelos Texts com o Cdbl antes...ta ligado!?

té mais..boa sorte
MOREIRA 11/09/2007 13:55:21
#235051
Private Sub CmdDescontos_Click()
Dim A As Double
Dim B As Double
Dim C As Double
Dim Total As Double

A = txtImposto.Text
B = txtTotalPagar.Text
C = txtDesconto.Text

Total = forma(cdbl(A) - cdbl(B) + cdblC)
txtTotalLiquido.Text = abs(Total)


fiz desta forma, mesmo assim ainda o resultado em como negativo..
exemplo: -150,00
end sub
USUARIO.EXCLUIDOS 11/09/2007 13:59:18
#235053
Faz isso

Total = cdbl(A) - (cdbl(B) + cdbl(C))
txtTotalLiquido.Text = format(Total, "Currency")

boa sorte
ROBIU 11/09/2007 14:19:13
#235060

Dim A As Double 'Cria as variáveis
Dim B As Double
Dim C As Double
Dim Total As Double
'Essãs linhas são necessárias para não causar erro quando não tiver valor nas textBox.
if TxtTotalPagar.Text="" then TxtTotalPagar=0
if TxtImposto.Text="" then TxtImposto=0
if TxtDesconto="" then TxtDesconto=0

'Atribui Valores das textboxs as variáveis. Aqui a váriavel A recebe o valor maior e os valores das variáveis B e C não devem ser maior que a variável A pois não teria sentido.

A = cdec(txtTotalPagar.Text) 'Atribui Valor
B = cdec(txtImposto.Text)
C = cdec(txtDesconto.Text)

Total = formatcurrency(A-B-C,2,vbTrue,vbTrue,vbTrue) 'Faz o Cálculo
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar