Format Number

[waag]

meu codigo esta funcionando porem ele imprimi o valor assim 100,00000. Eu preciso que ele coloque um ponto antes dos dois ultimo digitos assim 100,000.00 e deixar no formato dos estados unidos, virgula depois ponto.

<%
Function base(n1)
if  isnumeric(n1) then
  if n1> 0 then
   iReturn = n1
  else
   iReturn = 0
  end if
else
   iReturn = 0
end if
base = formatNumber(iReturn,5)

End Function
%>

muito obrigado

[webdeveloper]

A instrução Format$/Format é utilizada converte valores numéricos em strings de forma que você tenha controle sobre a forma com que os numeros serão impressos/visualizados . O comando Format$ transforma os valores numéricos em strings e o Format transforma em tipo Variant.

Sintaxe :

Format[$]( expressão_numérica [,formato$] )

Expressão numérica especifica o numero a ser convertido e fmt$ é a string formada de simbolos que irão formatar o numero. O simbolos mais usados eestão abaixo :

Simbolo Descrição

0 Caracter posicionador ; imprime um zero anterior ou postrior ao numero na posiçao se apropriado

# Caracter posicionador ; nunca imprime zeros anteriores ou posteriores

. Separador de decimais

, Separador de milhares

- + $ ( ) espaço Caracteres literais ; mostra cada um desses caracteres exatamente como digitado dentro da string de formatação

Exemplos :

Format$(83514.4 , "00000.00") resulta em 08315.40

Format$(83514.4 , "#####.##") resulta em 8315.4

Format$(83514.4 , "##,##0.00") resulta em 8,315.40

Format$(315.4 , "$##0.00") resulta em $315.40

Format$(Now , "d/m/yy") resulta em 12/09/95

Note que a representação da separação de milhares e decimais deverá no programa ser colocada na forma utilizada nos Estados Unidos , mas o Windows mostrará na tela os caracteres configurados no Painel de Controle , opção Internacional.

Fonte: http://www.silicio.com.br/vb/tutorial.html

[waag]

não funcionou nenheum dos exemplos, achei estranho

[Ted k']

se está cadastrando no banco, qual é o tipo do campo?

[waag]

não tem nenhum banco, esta funcionando com puro ASP

vlw

[webdeveloper]

Note que a representação da separação de milhares e decimais deverá no programa ser colocada na forma utilizada nos Estados Unidos , mas o Windows mostrará na tela os caracteres configurados no Painel de Controle , opção Internacional.

Reparou neste trecho?

[waag]

mesmo assim ele só coloca uma virgula assim 100,00000 eu preciso que ele coloque um ponto antes dos dois ultimos zeros assim 100,000.00

eu coloquei o numero 5 pra imprimir os 5 caracteres "base = formatNumber(iReturn,5)" mas deve haver um geito dele colocar esse ponto

[webdeveloper]

Tenta assim:

base = Format$(FormatNumber(iReturn,5) , "##,##0.00")

[waag]

aparece um erro

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0408)

Caractere inválido

coloquei exatamente o que você me passou

<%
Function base(n1)
if  isnumeric(n1) then
  if n1> 0 then
   iReturn = n1
  else
   iReturn = 0
  end if
else
   iReturn = 0
end if
base = Format$(FormatNumber(iReturn,5) , "##,##0.00")
End Function
%>

vlw

[webdeveloper]

E assim:

<%
Function base(n1)
if  isnumeric(n1) then
  if n1> 0 then
   iReturn = n1
  else
   iReturn = 0
  end if
else
   iReturn = 0
end if
base = Format(FormatNumber(iReturn,5) , "##,##0.00")
End Function
%>

[waag]

aparece o mesmo erro ainda

[webdeveloper]

Acredito que somente alterando as configurações regionais mesmo.

[waag]

sim, acredito que seja isso tambem, porque meu windows esta em portugues.

mas vlw pela tentativa

abraço

[webdeveloper]

Ok.