[defcon1_es]

Se me ocurre esta otra:

Código Delphi [-]
function LenghtParteEntera(numero:Real):integer; 
begin  
  Result := Length(IntToStr(Trunc(numero)));
end;