ActiveDelphi

[Bresciani]

Boa noite


Tenho uma resultado de uma conta de é de 68,577 ... eu quero converter para duas casas decimais já fazendo o arrendondamento para 68,58 mas no lugar da virgula, eu preciso que seja coloca o .

Alguém pode me ajudar por favor

[jcfranco]

Olá,

Vc ja tentou assim para ver se resolve?
[php]
FormatFloat(\'###.00\',Query.FieldByName(\'Valor\').AsFloat)
[/php]

[Editado em 29/8/2006 por jcfranco]
_________________
Julio C. Franco

[rafworld]

Olá, coloca assim que dá certo.

[code]
FormatFloat(\'#0.00\',Query.FieldByName(\'Valor\').AsFloat);
[/code]


t++
_________________
Rafael A Santos
Programador Delphi
MSN: rafworld@hotmail.com
D3 - D5 - D7 - D2006 (Interbase, FireBird, SQL Server)

[Bresciani]

Bom dia

Obrigado pela ajuda, mas eu não estou pegando campo da tabela, está sendo armazenado o valor em uma variavel single no delphi, na linha abixo dá certo o problema a variavel armazena 68,775 e nessa alteração ela faz ficar em 68,78 mas eu preciso que em vez da virgula seja gerado o valor com ponto (.), pois no mysql devo gravar o valor com ponto e não com a virgula ...tem jeito de alterar para ponto ???? ou alguma formatação depois do calculo ....
Se puder me ajudar ficaria agradecido....

Ex:
variavel2 := formatfloat(\'###.00\',variavel);




[quote]Olá,

Vc ja tentou assim para ver se resolve?
[php]
FormatFloat(\'###.00\',Query.FieldByName(\'Valor\').AsFloat)
[/php]

[Editado em 29/8/2006 por jcfranco] [/quote]

[Bresciani]

alguém poderia me ajudar com o problema ???



[quote]Bom dia

Obrigado pela ajuda, mas eu não estou pegando campo da tabela, está sendo armazenado o valor em uma variavel single no delphi, na linha abixo dá certo o problema a variavel armazena 68,775 e nessa alteração ela faz ficar em 68,78 mas eu preciso que em vez da virgula seja gerado o valor com ponto (.), pois no mysql devo gravar o valor com ponto e não com a virgula ...tem jeito de alterar para ponto ???? ou alguma formatação depois do calculo ....
Se puder me ajudar ficaria agradecido....

Ex:
variavel2 := formatfloat(\'###.00\',variavel);




[quote]Olá,

Vc ja tentou assim para ver se resolve?
[php]
FormatFloat(\'###.00\',Query.FieldByName(\'Valor\').AsFloat)
[/php]

[Editado em 29/8/2006 por jcfranco] [/quote] [/quote]

[jcfranco]

Bresciani,

Tenta assim

[url]http://www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=viewthread&tid=405#pid399 [/url]

ou assim

[url]http://www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=viewthread&tid=20624#pid[/url]

[Editado em 29/8/2006 por jcfranco]
_________________
Julio C. Franco

[johnny-walker]

Atenção... cuidado pois vc pode implementar isso e ter bugs em suas mãos... na hora das conversões.. ok....

Var
N1, N2, N3: Single;
S1, S2: String;
begin
// 1º Modo
N1 := 77.6845;
S1 := FormatFloat(\'##.00\', N1);
Label1.Caption := StringReplace(S1, \',\', \'.\', []);

// 2º Modo
// Defino o separador decimal como o ponto
DecimalSeparator := \'.\';
// Somente após definir o separador
// coloco o número que desejo trabalhar,
// se o número estiver antes de DecimalSeparator...
// erro de conversão...
N2 := 67.7949;
S2 := FormatFloat(\'##.00\', N2);
Label2.Caption := StringReplace(S2, \',\', \'.\', []);
N3 := StrToFloat(S2);
Label2.Caption := FloatToStr(N3);
Label3.Caption := S2;
end;


bye...
_________________
P.O.W.E.R B.Y D.E.L.P.H.I