(Resolvido) formato moeda e casas decimais

[Leandro_Pirozzi]

Olá galera.

Minha dúvida é a seguinte:

estou utilizando esse codigo para quando o usuário clicar no grid ele exibe no formato de moeda.

ate ai tudo bem. O problema q estou encontrando é quando o usuario precisa digitar um valor com virgula quebrada por exemplo: 139.139,90.

o codigo que estou utilizando para visualização é esse.

txtcusto.Text = Format(txtcusto, "###,###,##0.00")

Mas ai ele me exibe 13.913.990,00. No caso ele acrescenta ,00.

tem como modificar isso?

obrigado.

Editado Outubro 14, 2009 por Jonathan Queiroz

[fercosmig]

txtcusto.Text = Format(txtcusto, "###,###,###.##")

[Leandro_Pirozzi]

txtcusto.Text = Format(txtcusto, "###,###,###.##")

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990,

No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda.

Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro.

exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula.

Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados.

No caso do exemplo ficaria assim 1.234,56.

Ficou mais claro?

obrigado.

[Leandro_Pirozzi]

txtcusto.Text = Format(txtcusto, "###,###,###.##")

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990, No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda. Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro. exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula. Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados. No caso do exemplo ficaria assim 1.234,56. Ficou mais claro? obrigado.

Seguinte galera a solução foi bem simples. Entrei nas propriedades do Text e verifiquei que na propriedade DataFormat tinha a opção de Currency, e lá ele exibe um exemplo no Format$. Utilizei o exemplo de format que ele exibiu e adaptei no código que ficou assim:

txtcusto.Text = Format(txtcusto.Text, "#,##0.00;(#,##0.00)")

Funcionou direitinho.

Obrigado a todos.

[DanielaC]

txtcusto.Text = Format(txtcusto, "###,###,###.##")

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990, No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda. Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro. exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula. Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados. No caso do exemplo ficaria assim 1.234,56. Ficou mais claro? obrigado.

Seguinte galera a solução foi bem simples. Entrei nas propriedades do Text e verifiquei que na propriedade DataFormat tinha a opção de Currency, e lá ele exibe um exemplo no Format$. Utilizei o exemplo de format que ele exibiu e adaptei no código que ficou assim:

txtcusto.Text = Format(txtcusto.Text, "#,##0.00;(#,##0.00)")

Funcionou direitinho.

Obrigado a todos.

Boa tarde a todos!

Eu tentei esse último código, mas não consegui... alguma outra dica, o que deve estar fazendo de errado?

Desde já, agradeço.

[kuroi]

o q aconteceu de errado??