Formatar campo

[Maycon 0]

Tenho um campo do tipo texto, com 11 posições

 

Nele eu tenho o dado:

00000100383 

Preciso converter para formatação de moeda (real), ou seja, remover os zeros a esquerda, e colocar o ponto/virgula:

 

1.003,83

 

Tentei:

valor = mid(rsRegistro("VALOR"),1,9) + "," + Right(rsRegistro("VALOR"),2)

mas não está completa ...

 

Alguém pode auxiliar ?

[*Marcinha* 0]

tenta isso: response.write FormatNumber(int("00000100383"))

[Maycon 0]

Marcinha, o FormatNumber acrescenta duas casas decimais após o número, ou seja, ficará 100.383,00 e não 1.003,83

 

? ? ?

[Maycon 0]

Utilizei o FormatCurrency(00000100383,2), mas retorna R$ 100.383,00, ou seja, parecido com o FormatNumber.

 

Estou tentando o CDBL("00000100383")/100, mas não retorna com a formatação ideal (ponto nas centenas)

[Salgado 4]

Testa isso ai:

Valor = "00000100383"

Valor = CDbl(Valor)

Valor = Left(Valor, Len(Valor-2)) &","& Right(Valor,2)

Valor = FormatNumber(Valor,2,0,0,-1)

[/tr]

[Maycon 0]

Valeu Salgado !Funciona em partes, mas quando coloca um campo que possui centenas e milhar, ae já não funciona ...ex: 00000125931 fica 125.931,31 tinha que ficar 1.259,31 :mellow:

[Maycon 0]

beleza Kdu, e os zeros as esquerdas, tem como remove-los ?

[mlohmeyer 0]

Podes fazer de maneira bem simples, que é :

 

 

 

 

FormatCurrency(eval("00000100383")/100,2)

 

Até mais.