Formatar valor

Delphi

13/08/2006

Estou precisando converter os dados de um sistema de um concorrente so que os valores ele grava assim

valor gravado - valor que preciso.
0.240000 - 24,00
0.005000 - 0,50
1.298100 - 129,81
2.357200 - 235,72
0.329200 - 32,90


isso esta em uma tabela em DBF..


Mysys

Mysys

Curtidas 0

Respostas

Micheus

Micheus

13/08/2006

Como vc não sitou com que tipos de dados está lidando...
// Se valor gravado for string, acho que começa assim:
// substitui ponto por vírgula para possibilitar conversão
// aqui 0.240000 passa a ser 0,240000
Vl_Gravado := StringReplace(Vl_Gravado, ´.´, ´,´, []);

// converte string para float e multiplica por 100 para ajustar casas
// assim, 0.24 passa a ser 24.00
Vl_Convertido := StrToFloat(Vl_Gravado) *100;

// se resultado deve ser string, então é só converter denovo
Vl_Q_Preciso := FormatFloat(´0.00´, Vl_Convertido);

[]s


GOSTEI 0
POSTAR