Decimal

[Rodrigo Miss 1]

procedure TfrmContasPagar.qryAfterOpen(DataSet: TDataSet);var valor: real;beginvalor:= 0;{Soma Contas}qry.First;While not qry.Eof do	begin	valor:= valor + qryValor.Value;	qry.Next;	lblTotal.Caption:= 'R$ ' + FloatToStr(valor);	end;

 

Nos fiels da qry mudei o DisplayFormat do campo Valor para 0.00,,,

 

mais gostaria de colocar no lblTotal o valor da soma com duas casas decimais tipow de for 120 colocar 120,00

 

alguem sabe como fazer issu?

[Joneloko 0]

procedure TfrmContasPagar.qryAfterOpen(DataSet: TDataSet);var valor: real;beginvalor:= 0;{Soma Contas}qry.First;While not qry.Eof do	begin	valor:= valor + qryValor.Value;	qry.Next;	lblTotal.Caption:= 'R$ ' + FloatToStr(valor);	end;

Nos fiels da qry mudei o DisplayFormat do campo Valor para 0.00,,,mais gostaria de colocar no lblTotal o valor da soma com duas casas decimais tipow de for 120 colocar 120,00alguem sabe como fazer issu?

Acho que isso da certo:lbltotal.caption:= FormatFloat('R$ #,0.00',Valor);oulbltotal.caption:= trim(format('%m',[valor]));espero ter ajudado, abraços....

[thalesoli 0]

procedure TfrmContasPagar.qryAfterOpen(DataSet: TDataSet);var valor: real;beginvalor:= 0;{Soma Contas}qry.First;While not qry.Eof do	begin	valor:= valor + qryValor.Value;	qry.Next;	lblTotal.Caption:= 'R$ ' + FloatToStr(valor);	end;

Nos fiels da qry mudei o DisplayFormat do campo Valor para 0.00,,,mais gostaria de colocar no lblTotal o valor da soma com duas casas decimais tipow de for 120 colocar 120,00alguem sabe como fazer issu?

Acho que isso da certo:lbltotal.caption:= FormatFloat('R$ #,0.00',Valor);oulbltotal.caption:= trim(format('%m',[valor]));espero ter ajudado, abraços....

Só para completar o amigovocê pode usar esta função tb, o diferencial q você não determina a mascara de moeda.. pois ela pega a que esta configurada no windows..

CurrToStrF(100.00, ffCurrency, 2);

um abraço http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[marcio.theis 3]

Pode ainda fazer assim:lbltotal.caption:=FloatToStrF(Valor,ffNumber,15,2);

[Rodrigo Miss 1]

Vlw galera,,, testei d toda as formas citadas todas deram certinhas...mah optei por usar a ( lbltotal.caption:=FloatToStrF(Valor,ffNumber,15,2); ) axei + simples pro meu caso...vlw pela ajuda....mah agora falando no assunto.... 100qrerer abusar,, mah você poderia me explicar oke é esse StrF??? e essa precisao "15" ,,, como q funciona???

[marcio.theis 3]

No caso se analizarmos o fonte:

FloatToStrF(Valor,ffNumber,15,2)

Veremos que:

FloatToStrF -> Permite que você passe um valor para string podendo formatar da forma que você desejar.

ffNumber -> Tipo de formatação, pode ser por exemplo:

ffFixed = n° exemplo 1500,50

ffNumber = n° exemplo 1.500,50

ffCurrency = n° exemplo R$ 1.500,50

15 -> Seria a "precisão do cálculo, o n° de dígitos antes da vírgula, no caso até 15 casas ele vai formatar.

2 -> Definição de n° de casas decimais que você quer ter depois da vírgula, podendo colocar quantas desejar, ele irá efetuar o arredondamento automaticamente se necessário.

 

http://www.delphibasics.co.uk/RTL.asp?Name=FloatToStrF

[Rodrigo Miss 1]

hummm vlw msm kra... mto bm explicado...