Fórum Função para transformar um Nº Real em Moeda!! #289545
26/07/2005
0
Pessoal eu utilizo essa função para transformar um Real em Moeda
Mas os preços saem assim:
Ex:
R$ 10000,00 (Dez Mil)
Mas eu queria que aparececem assim:
R$ 10.000,00 (Dez Mil)
Alguem poderia me ajudar???
Obrigado
function ArrumaPreco(var Preco: Real): String;
var X: Real;
Texto: String;
aux: Integer;
begin
X := Trunc(Preco * 100) / 100;
Texto:= FloatToStr(X);
aux:= length(Texto);
if Texto[aux-1]=´,´ then
Texto:= Texto+´0´
else if Texto[aux-2]<>´,´ then
Texto:= Texto+´,00´;
result:= ´R$ ´+Texto;
end;
Mas os preços saem assim:
Ex:
R$ 10000,00 (Dez Mil)
Mas eu queria que aparececem assim:
R$ 10.000,00 (Dez Mil)
Alguem poderia me ajudar???
Obrigado
Japa
Curtir tópico
+ 0
Responder
Posts
26/07/2005
Massuda
Ao invés de usar FloatToStr, experimente usar [url=http://www.delphibasics.co.uk/RTL.asp?Name=FloatToStrF]FloatToStrF[/url] (visite o link para ver alguns exemplos).
Responder
Gostei + 0
26/07/2005
Japa
Rssss e mais Rssssss uahuhauha
Caracas que faciuuuuuu.... vlws massuda... brigadão :D
Caracas que faciuuuuuu.... vlws massuda... brigadão :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)