Redondear?

[[seoane]]

Y casi la clavo, esta es la funcion Ceil echa por los amigos de borland:

Código Delphi [-]
function Ceil(const X: Extended): Integer;
begin
  Result := Integer(Trunc(X));
  if Frac(X) > 0 then
    Inc(Result);
end;

Soy de los que siempre intenta reinventar la rueda