Round (numero, digitos)

Redondea un número fraccionario al número de dígitos decimales especificado.

Ejemplo de uso:

procedure TformGArticulo.txtDExit(Sender: TObject);
begin
  if (bd.State in [dsinsert, dsedit]) then
  begin
    bdpreciocompra.AsFloat := 
        RoundTo (StrToFloatDef(pc.Text,0) * (100 - 
        StrToFloatDef(dd.Text, 0)) / 100), 2);
  Calculo.Visible := false;
end;

Esta función pertenece a la Unidad Math, con lo cual habrá que añadir una referencia a esta unidad en la cláusula USES:

Uses Math;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario