Formatar String em Float...

Question

Ola pessoal.Tenho uma string, Ex: 163211quando jogo isso para dentro da base de dados, cujo campo e currency, a base grava da seguinte forma, Ex: 163.211,00Na verdade eu preciso que este valor seja gr...

Vinicius2k · Answer

Colega,fiz isso... veja se resolve...[code:1:9fcc13e107]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;[/code:1:9fcc13e107]vc passa String e o retorno � Float... vc grava no seu banco o retorno...Espero ter ajudado......

Aroldo Zanela · Answer

[quote:2b0aa22399=�diegodelphi�]Ola pessoal.Tenho uma string, Ex: 163211quando jogo isso para dentro da base de dados, cujo campo e currency, a base grava da seguinte forma, Ex: 163.211,00Na verdade eu preciso que este valor seja gravado da seguinte forma, Ex: 1.632,11Alguem pode me ajudar urgentemente ?Muito Obrigado !Diego[/quote:2b0aa22399]Colega,[code:1:2b0aa22399]nValorCurrency := StrToInt(cValorString)/100;[/code:1:2b0aa22399]...

Vinicius2k · Answer

[quote:93d4014387=�Aroldo Zanela�]Colega,[code:1:93d4014387]nValorCurrency := StrToInt(cValorString)/100;[/code:1:93d4014387][/quote:93d4014387] :oops:  simplicidade � tudo... consegui complicar uma coisa f�cil......

F�rum Formatar String em Float... #213964