Truncar Numeros Reais

Question

Senhorse, existe alguma fun��o no delphi 5.0 Que podemos Truncar Um Numero , ou isto tem que ser feito na m�o mesmo :?:  :?:  :?:  :?: Exemplo: N = 1,234567Quero Duas casas ---->>>> n = 1,...

Cristiam · Answer

[code:1:e81ea36034]FormatFloat(�0.00�, N)[/code:1:e81ea36034] :wink:...

Kotho · Answer

Voc� quer truncar ou arredondar?...

Marco Salles · Answer

[quote:e1cabdaa2e]C�digo: FormatFloat(�0.00�, N) [/quote:e1cabdaa2e] Obrigado CristinaM , e acrescentado que para Truncar de Fato , devemos fazer :[code:1:e1cabdaa2e]n:=StrToFloat(FormatFloat(�0.00�,n));[/code:1:e1cabdaa2e][quote:e1cabdaa2e]Voc� quer truncar ou arredondar?[/quote:e1cabdaa2e]Mas eu to precisando dtb e de arredondar este numero :lol:  :lol:  :lol:  :lol:...

Massuda · Answer

Sem ter que converter para string e assumindo que voc� quer duas casas decimais...

var
  X: Double;
....

  // trunca o valor em duas casas decimais
  X := 0.01 * Trunc(100 * X);

  // arredonda o valor em duas casas decimais
  X := 0.01 * Round(100 * X);

Marco Salles · Answer

Obrigado massuda  :P  :P  :P [quote:328149b1ff]Senhorse, existe alguma fun��o no delphi 5.0 Que podemos Truncar Um Numero , ou isto tem que ser feito na m�o mesmo [/quote:328149b1ff]� , tem que fazer na m�o mesmo  :evil:  :evil:  :evil:  :evil:  :evil:...

Mkoch · Answer

E se eu quise-se truncar com 1 ou 3 ou 4 ou 5 casas decimais seguindo este mesmo racioc�nio.Com 2 casas decimais (0.01) funciona legal....

Ajnet · Answer

boa dica...

Mkoch · Answer

Se servir para algu�m...[code:1:3382857e22]function TForm1.TruncMoney(const Valor: Currency; const Casas: Integer): Currency;var ValorS: String; NumInt, NumFrac, Num: String; Y: Integer;begin Result := 0; ValorS := CurrToStr(Valor); //Pegar a parte fracion�ria Y := Pos(DecimalSeparator, ValorS); if Y > 0 then begin NumInt := Copy(ValorS, 1, Y - 1); NumFrac := Copy(ValorS, Y + 1, Casas); end//if else begin NumInt := ValorS; NumFrac := ��; end;//if //Preenche com zeros se necess�rio while Length(NumFrac) < Casas do NumFrac := NumFrac + �0�; Num := NumInt; if Trim(NumFrac) <> �� then Num := Num + �,� + NumFrac; if not TryStrToCurr(Num, Result) then raise Exception.Create(QuotedStr(Num) + � n�o � um valor monet�rio valido.�);end;[/code:1:3382857e22]...

Ediclo Junior · Answer

Caso algu�m precise, segue fun��o para trucar ou arredondar, informando a quantidade de casas decimais.

function TForm1.Truncar(pValor: Double; pCasasDecimais:Integer=2;pTruncar: Boolean=true): double;
var
fator : Extended;
begin

fator := Power(10,pCasasDecimais);
pValor := (fator * pValor);
if pTruncar
then pValor := Trunc(pValor)
else pValor := Round(pValor);

Result := (pValor * (1/fator));
end;

F�rum Truncar Numeros Reais #274978