2 replies to this topic

[aipim2000]

Estou tentando fazer uma função de arredondamento, soh q teria q ser arredondar para baixo, tipo 39,67888 fica = 39,67. Simplesmente desconsidera aqueles valores.

Estava tentando usar o fix da seguinte maneira :

var = (fix(num * 100))/100

Faz sentido, mas não funfa! tipo digito o seguinte numero 200000,10 e a função me retorna 200000,09.

Alguém pode me ajudar ai???

[felipecm]

Estou tentando fazer uma função de arredondamento, soh q teria q ser arredondar para baixo, tipo 39,67888 fica = 39,67. Simplesmente desconsidera aqueles valores.

Estava tentando usar o fix da seguinte maneira :

var = (fix(num * 100))/100

Faz sentido, mas não funfa! tipo digito o seguinte numero 200000,10 e a função me retorna 200000,09.

Alguém pode me ajudar ai???

Bom.. vamos as coisas mais simples.. o Fix retorna um inteiro. deveria funcionar corretamente a função para 2 digitos.. As funcoes Round() e FormatNumber() tbm não se adequam a esta solucção pois elas tem o padrao de arredondamento maior q 5 pra cima e menor q 5 pra baixo.

intDig = 2

If InStr(Num, ",") > 0 Then
  valor = CDbl(Left(Num, InStr(Num, ",") + intDig))
Else
  valor = CDbl(num)
End If

Tenta alguma coisa mais nesse sentido que vc deve ter sucesso.

Edição feita por: felipecm, 25/02/2005, 12:50.

[aipim2000]

Poxa! funcionou e ficou perfeito!
Não conhecia esta função left, mas agora jah sei o que faz. Vlw mesmo

Muito Obrigado

Flw