F�rum Arrendondamento de Valor #399045

12/04/2011

Tenho o seguinte cenario: Edit.text: 23,33 Arrendondamento : 10 r := strtocurr(edit1.text);
r := trunc(r);
showmessage(CurrToStr(r));
O resultado acima vai ser : 23 Gostaria que ficasse assim 20, pois vou pegar este valor e somar com o arredondamento e ficaria o resultado 30 outro exemplo Edit.text: 33,33 Arrendondamento :10 r := strtocurr(edit1.text);
r := trunc(r);
showmessage(CurrToStr(r));
O resultado acima vai ser : 40 Gostaria que ficasse assim 30, pois vou pegar este valor e somar com o arredondamento e ficaria o resultado 40

Evandro Abreu

Curtir t�pico

+ 0

Responder

Posts

12/04/2011

Eduardo Marcolongo

Voce poderia fazer assim:

var    ipos : integer;    x : string;    valor : float;begin    ipos:= pos(',',edit1.text);    x   := copy(edit1.text,1,(ipos-2));    valor := strtofloat(x)+1;    x := floattostr(valor)+'0';    showmessage(x);end;

Esperto ter ajudado.

Responder

Gostei + 0

12/04/2011

Eduardo Marcolongo

ou se o arredondamento for variavel:

procedure TForm1.Button1Click(Sender: TObject);var  ipos : integer;  x : string;  valor, arredondamento : double;beginarredondamento := 10;ipos:= pos(',',edit1.text);x   := copy(edit1.text,1,(ipos-2));x   := x+'0';valor := strtofloat(x)+arredondamento;showmessage(floattostr(valor));end;

Responder

Gostei + 0