Função para transformar um Nº Real em Moeda!!
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
Curtidas 0
Respostas
Massuda
26/07/2005
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).
GOSTEI 0
Japa
26/07/2005
Rssss e mais Rssssss uahuhauha
Caracas que faciuuuuuu.... vlws massuda... brigadão :D
Caracas que faciuuuuuu.... vlws massuda... brigadão :D
GOSTEI 0