Como converter um valor 999999 em 999,999
Olá boa tarde a todos, como eu conseguiria converter esse valor com uma vírgula antes da terceira casa...
Pois estou pegando a quantidade de segundos e milésimos de segundo de um áudio, só que para mim ele não aparece com virgula, preciso colocar uma vírgula antes da terceira casa, como o exemplo abaixo.
345656 e transformar em 345,656
Alguma função que coloque essa virgula, obrigado a todos.
Pois estou pegando a quantidade de segundos e milésimos de segundo de um áudio, só que para mim ele não aparece com virgula, preciso colocar uma vírgula antes da terceira casa, como o exemplo abaixo.
345656 e transformar em 345,656
Alguma função que coloque essa virgula, obrigado a todos.
Júnior Pinheiro
Curtidas 0
Melhor post
Fernando Ito
22/01/2020
Olá boa tarde a todos, como eu conseguiria converter esse valor com uma vírgula antes da terceira casa...
Pois estou pegando a quantidade de segundos e milésimos de segundo de um áudio, só que para mim ele não aparece com virgula, preciso colocar uma vírgula antes da terceira casa, como o exemplo abaixo.
345656 e transformar em 345,656
Alguma função que coloque essa virgula, obrigado a todos.
Pois estou pegando a quantidade de segundos e milésimos de segundo de um áudio, só que para mim ele não aparece com virgula, preciso colocar uma vírgula antes da terceira casa, como o exemplo abaixo.
345656 e transformar em 345,656
Alguma função que coloque essa virgula, obrigado a todos.
Fala Júnior,
verifica se é isso que vc precisa!
procedure TForm1.Button1Click(Sender: TObject);
var
valor: string;
begin
valor := edit1.Text;
valor := Copy(valor, 0, 3) + ',' + Copy(valor, 3, 3);
edit2.Text := valor;
end;
um abraço,
ITO
GOSTEI 1
Mais Respostas
Júnior Pinheiro
22/01/2020
Perfeito, funcionou perfeito, só na hora de salvar, que converto em float e salva com a vírgula, valeu mesmo, muito obrigado.
Fala Júnior,
verifica se é isso que vc precisa!
procedure TForm1.Button1Click(Sender: TObject);
var
valor: string;
begin
valor := edit1.Text;
valor := Copy(valor, 0, 3) + '','' + Copy(valor, 3, 3);
edit2.Text := valor;
end;
um abraço,
ITO
Olá boa tarde a todos, como eu conseguiria converter esse valor com uma vírgula antes da terceira casa...
Pois estou pegando a quantidade de segundos e milésimos de segundo de um áudio, só que para mim ele não aparece com virgula, preciso colocar uma vírgula antes da terceira casa, como o exemplo abaixo.
345656 e transformar em 345,656
Alguma função que coloque essa virgula, obrigado a todos.
Pois estou pegando a quantidade de segundos e milésimos de segundo de um áudio, só que para mim ele não aparece com virgula, preciso colocar uma vírgula antes da terceira casa, como o exemplo abaixo.
345656 e transformar em 345,656
Alguma função que coloque essa virgula, obrigado a todos.
Fala Júnior,
verifica se é isso que vc precisa!
procedure TForm1.Button1Click(Sender: TObject);
var
valor: string;
begin
valor := edit1.Text;
valor := Copy(valor, 0, 3) + '','' + Copy(valor, 3, 3);
edit2.Text := valor;
end;
um abraço,
ITO
GOSTEI 1