Formatar String em Float...

Delphi

13/02/2004

Ola pessoal.

Tenho uma string, Ex: 163211
quando jogo isso para dentro da base de dados, cujo campo e currency, a base grava da seguinte forma, Ex: 163.211,00

Na verdade eu preciso que este valor seja gravado da seguinte forma, Ex: 1.632,11

Alguem pode me ajudar urgentemente ?

Muito Obrigado !
Diego


Diegodelphi

Diegodelphi

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

13/02/2004

Colega,

fiz isso... veja se resolve...

function Transforma (S: string ; D: Integer = 2): Double;
// S: string passada para converter.
// D: qtde de decimais... se não informado default são duas.
var x: string;
begin
 x:= copy(S,1,(length(S)-D)) +  ´,´ +  copy(S,(length(S)-(D-1)),D);
 Result:= StrToFloat(x);
end;


vc passa String e o retorno é Float... vc grava no seu banco o retorno...

Espero ter ajudado...


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

13/02/2004

Ola pessoal. Tenho uma string, Ex: 163211 quando jogo isso para dentro da base de dados, cujo campo e currency, a base grava da seguinte forma, Ex: 163.211,00 Na verdade eu preciso que este valor seja gravado da seguinte forma, Ex: 1.632,11 Alguem pode me ajudar urgentemente ? Muito Obrigado ! Diego


Colega,

nValorCurrency := StrToInt(cValorString)/100;



GOSTEI 0
Vinicius2k

Vinicius2k

13/02/2004

[quote:93d4014387=´Aroldo Zanela´]
Colega,
nValorCurrency := StrToInt(cValorString)/100;
[/quote:93d4014387]

:oops: simplicidade é tudo... consegui complicar uma coisa fácil...


GOSTEI 0
POSTAR