IceEyes
|
BRASIL
MS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/07/2008 10:56 hs
bom dia galera! estou com um pequeno problema que não consigo resolver rsss preciso que o meu calculo de certo e a minha variavel arredonda e naum sei pq
utilizo a variavel currency para a moeda
pois na nota de compra vem o valor de R$ 149,16 tenho q dividir o valor por 20 mas a danana me da o resultado de 7.46 e eu gostaria que o resultado fosse 7.458 já mudei a configuração de moeda do windows nao funcionou, ja troquei a variavel para double tbm naum funcionou, tentei ate string mas tbm naum deu... rsss se alguem tiver alguma solução agradeço 
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 17/07/2008 11:54 hs
Faça assim Dim valor As Double
valor = "149,16" MsgBox CCur(valor) / 20 |
|
|
|
|
|
Postada em 17/07/2008 12:03 hs
jah tentei e o resultado q me da é 7.46 no lugar de 7,458
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/07/2008 12:07 hs
Faz o seguinte posta o seu código para fazermosas alterações |
|
|
|
|
|
Postada em 17/07/2008 12:22 hs
Dim valor_Compra as Currency
Dim valor_Quant_porCaixa as Double
Dim valor_Unitario as Currency
valor_Compra = txt(0)
valor_Quant_porCaixa = txt(1)
Valor_Unitario = valor_Compra / valor_Quant_porCaixa
ja tentei mudar na configuração de moeda do windows (decimal) para 3 digitos
ja tentei formatar txt(2).text= format(Valor_Unitario,"###,###.000")
mas mesmo assim ele da um valor exato em duas casas decimais tipo se o resultado for 4,522 ele fica como 4,52 e se for 4,556 joga para 4,56
Se alguem tiver algum lance ae agradeço
|
|
|
|
Bruno Oliveira
não registrado
|
|
Postada em 17/07/2008 14:52 hs
Dim Val As Currency
Dim Quant As Double
Dim ValUnit As Currency
Val = 149.16
Quant = 20
ValUnit = FormatCurrency(Val / 20, 3)
MsgBox ValUnit |
|
|
|
