Como formatar numero desta forma:

[Leandro Paiva 0]

Senhores, voces sabem se tem alguma função que me formate numeros igual no exemplo abaixo:152500 >> deveria ficar 1.525,00162330 >> deveria ficar 1.623,301325625 >> deveria ficar 13.256,25Todas as funções nativas do ASP eu já tentei e nao consegui, consigui fazer o contrario usando replace, mais do numero limpo, para a formatação desejada está complicado.Note, com FomatNumber(valor,2) retorna >> para 152500 >> 152.500,00 - portanto errado!!Agradeço por qualquer ajuda,

[Salgado 4]

Se as duas casas finais forem sempre decimais rola usar Left e Right para inserir a "," e depois usar o FormatNumber.

[WebASP 0]

Olha o código ai só porque acordei de bom humor hehe to brincando<% Valor = 2357 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 Valor2 = FormatNumber(Valor1,2) Valor3 = FormatCurrency(Valor1) Response.Write "Valor: " & Valor Response.Write "<br>Valor1: " & Valor1 Response.Write "<br>Valor2: " & Valor2 Response.Write "<br>Valor3: " & Valor3 '' Valor: 1 '' Valor1: 0,01 '' Valor2: 0,01 '' Valor3: R$ 0,01 '' Valor: 101 '' Valor1: 1,01 '' Valor2: 1,01 '' Valor3: R$ 1,01 '' Valor: 2357 '' Valor1: 23,57 '' Valor2: 23,57 '' Valor3: R$ 23,57 by. MPSWeb > WebASP > Marcelo Santos >> Sou Lindo%>

[birobirosk8 0]

ei...usando um formatNumber("1000", 2)não funciona ???

[Leandro Paiva 0]

Obrigado pela solução, ficou nota 9, fiz pequenas alterações e ficou nota DEZ, risos....Código completo:<%numero1 = 125346numero2 = 987653433453Function SQLReplace(str) SQLReplace = Replace(str, ",","") SQLReplace = Replace(SQLReplace, ".","") End Functionnum1= SQLReplace(numero1)num2= SQLreplace(numero2)response.write num1response.write "<p>"response.write num2response.write "<p>"Function Formata_Valor(valor,tipo)IF Len(Valor) = 1 THENFormata_Valor = 0 & ",0" & ValorELSEIF Len(Valor) = 2 THENFormata_Valor = 0 & "," & ValorELSEFormata_Valor = Left(Valor,Len(Valor)-2) & "," & Right(Valor, 2)END IFIf tipo = 1 thenFormata_Valor = FormatNumber(Formata_Valor,2)elseif tipo = 2 thenFormata_Valor = FormatCurrency(Formata_Valor)End IFEnd FunctionSaidaN = Formata_Valor(num2,1)SaidaM = Formata_Valor(num2,2)Response.Write "Valor: " & num2Response.Write "<br>Valor1: " & SaidaNResponse.Write "<br>Valor2: " & SaidaM%>Unidos somos mais fortes, um abração valeu !!!!