Buscar por:

Truncar valor real

Código

/////////////////////////////////////////////////

//Função utilizada para truncar um valor real

/////////////////////////////////////////////////

Function TruncVal(Value:Real;Casas:Integer):Real;

/////////////////////////////////////////////////

Var sValor:String;

    nPos:Integer;

begin

   //Transforma o valor em string

   sValor := FloatToStr(Value);

   //Verifica se possui pondo decimal

   nPos := Pos(DecimalSeparator,sValor);

   If ( nPos > 0 ) Then begin

      sValor := Copy(sValor,1,nPos+Casas);

   End;

   Result := StrToFloat(sValor);

end;