Preciso formatar número

[mellosp 0]

Pessoal é o seguinte, to com um problema aqui e já tentei algumas coisas mas não deu certo.

 

Tenho um banco access com um campo chamado quant_hectarie no formato número

Eu insiro um valor tipo 280.72 mas quando recupero esse valor e listo na página ele aparece assim: 28072 então eu dou um formatNumber e ela fica : 28.072,00

O problema é que ele tem que ficar 280.72

Como faço? será que tenho que mudar algo la nessa coluna no acess ou no asp da pra fazer?

Funciona se eu colocar o campo como texto, mas como tenho que fazer uma buscar por valor mínimo ai como formato texto vai dar xabu...

 

Abraços e obrigado !!!!

[DSerma 19]

você insere 2872 e ele coloca um "0" no mei odo numero, ficando 28072 ?????

 

o.O ????

[mellosp 0]

Isso mesmo, eu insirio no form 280.72 quando vem do banco vem como 28072

eu dou um formatNumber e ele fica 28.072,00

nao to entendendo...

 

 

você insere 2872 e ele coloca um "0" no mei odo numero, ficando 28072 ?????

 

o.O ????

[jrcardozo 4]

acho que gravando sem o ponto resolveria:

valor = replace(request("valor"),'.',"")

 

caso não resolva tente usar essa função que peguei aqui no forum, se não me engano o salgado é o autor dela:

function formataMoeda(byVal inteiro)
	dim valor
	dim valor1
	dim valor3
	valor=inteiro
	if valor = "" then 
		valor=0
	end if	
	IF Len(Valor) = 1 THEN
	  Valor1 = 0 & ",0" & Valor
	ELSEIF Len(Valor) = 2 THEN
		Valor1 = 0 & "," & Valor
	ELSE
		Valor1 = Left(Valor,Len(Valor)-2) & "," & Right(Valor, 2)
	END IF
	formataMoeda=(formatcurrency(Valor1))
end function

[mellosp 0]

valeu jonathadj vou tentar ai, obrigadão pela ajuda!!!

 

--------

acho que gravando sem o ponto resolveria:

valor = replace(request("valor"),'.',"")

 

caso não resolva tente usar essa função que peguei aqui no forum, se não me engano o salgado é o autor dela:

function formataMoeda(byVal inteiro)
	dim valor
	dim valor1
	dim valor3
	valor=inteiro
	if valor = "" then 
		valor=0
	end if	
	IF Len(Valor) = 1 THEN
	  Valor1 = 0 & ",0" & Valor
	ELSEIF Len(Valor) = 2 THEN
		Valor1 = 0 & "," & Valor
	ELSE
		Valor1 = Left(Valor,Len(Valor)-2) & "," & Right(Valor, 2)
	END IF
	formataMoeda=(formatcurrency(Valor1))
end function

[Ted k' 126]

Resolva seu caso e dê o resultado pra gente!!!