Pict

[PITERGALDIANO]

boa tarde a todos

preciso pegar uma seguencia de caratctes e converter ela pra moeda R$

exemplo: 0000000589 corresponde a 5,89

como posso fazer isso, preciso imprimir estes dados

já tentei com pict mas só cheguei em 589,00, não consigo fazer com que os dois último caracteres sejam centavos.

Obrigado

Piter Galdiano

[Maligno]

preciso pegar uma seguencia de caratctes e converter ela pra moeda R$

exemplo: 0000000589 corresponde a 5,89

Atente para os detalhes para conseguir resolver o problema, que é fácil. Sendo um valor monetário com duas casas, é só inserir um ponto decimal e converter para numérico. Exemplo:

Código: Selecionar todos

c := "0000000589"
c := Stuff(c,Len(c)-1,0,".") // agora temos "00000005.89"
v := Val(c)                  // e neste ponto: 5.89

Acho que esta é a forma mais fácil. E resolve.

[]'s
Maligno
http://www.buzinello.com/prg

[filizola]

cvar="0000000589"

@ lin,col say transf(val(cvar)/100,"@e R$ 9,999.99")

[Anderson J. Freitas]

Bem eu uso de modo diferente do sugerido pelo Maligno, porém com o mesmo resultado

Código: Selecionar todos

 resultado = val(0000000589)/100 

O número de casas decimais será definido pelo número colocado como divisor. Neste exemplo = 2 casas

[Maligno]

preciso pegar uma seguencia de caratctes e converter ela pra moeda R$

exemplo: 0000000589 corresponde a 5,89

Desculpe. Tive um ataque de burrice (felizmente, momentâneo). A forma mais fácil, evidentemente, é a que os colegas demonstraram. Um simples Val(s)/100, onde s contém a string a converter. É muito mais prático.

[]'s
Maligno
http://www.buzinello.com/prg

[Cleiton Fidelis]

Cara sabe o que mais acho interessante no forum.
A capacidade de reconhecer as coisas.

Olha só, o Mestre Maligno, voltou a postagem pra referenciar realmente uma forma mais facil.

Ele eh um dos "Caras" e tem tamanha humildade, nem soh de ensinametnos de programcao, vivemos no forum

show, parabens.

Cleiton Fidelis
Divinopolis MG

[Antonio]

Cara sabe o que mais acho interessante no forum.
A capacidade de reconhecer as coisas.

Olha só, o Mestre Maligno, voltou a postagem pra referenciar realmente uma forma mais facil.

Ele eh um dos "Caras" e tem tamanha humildade, nem soh de ensinametnos de programcao, vivemos no forum

show, parabens.

Cleiton Fidelis
Divinopolis MG

Só não concordo muito com esse nome "Maligno", mas o que tenho eu de concordar ou discordar.... ademas trata-se realmente de um mestre.

Parabens.

[evolver]

Humm vou lockar não pela zona, mas o assunto tá resolvido e o tópico tá desbandando a toa.

puxasaco mode off ai faz favor! )