Mascara de Valores ??
16/12/2003
0
Olá Pessoal !
tenho que ler esse texto e formatar para valores assim
VarTexto: 00000000001397
Quero deixar assim:
VarCurrency := 13,97
Obrigada !
Renata Coimbra
tenho que ler esse texto e formatar para valores assim
VarTexto: 00000000001397
Quero deixar assim:
VarCurrency := 13,97
Obrigada !
Renata Coimbra
Renata Coimbra
Curtir tópico
+ 0
Responder
Posts
16/12/2003
Tnaires
Olá Renata!
Primeiro, vamos retirar os zeros:
Esse código armazena em Num a string correspondente ao número sem os zeros.
Agora vamos armazenar o valor:
Essa linha transforma a string Num em número real e divide seu valor por 100 para deslocar a casa decimal 2 casas à esquerda.
Escrevi esse código agora e por isso não testei. Espero q tenha ajudado...
Muito sucesso a todos nós
Primeiro, vamos retirar os zeros:
Num := ´´; for i := Length(VarTexto) - 1 to 0 do if VarTexto <> 0 then Num := Num + VarTexto[i] else Break;
Esse código armazena em Num a string correspondente ao número sem os zeros.
Agora vamos armazenar o valor:
VarCurrency := StrToFloat(Num) / 100;
Essa linha transforma a string Num em número real e divide seu valor por 100 para deslocar a casa decimal 2 casas à esquerda.
Escrevi esse código agora e por isso não testei. Espero q tenha ajudado...
Muito sucesso a todos nós
Responder
16/12/2003
Tnaires
Há um erro no laço for...
Ao invés de fazer
for i := Length(VarTexto) - 1 to 0
faça
for i := Length(VarTexto) - 1 [u:06acf9bb67]downto[/u:06acf9bb67] 0
Ao invés de fazer
for i := Length(VarTexto) - 1 to 0
faça
for i := Length(VarTexto) - 1 [u:06acf9bb67]downto[/u:06acf9bb67] 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)