Tema: cantidad de dígitos de la parte entera de un Real
Ver Mensaje Individual
  #3  
Antiguo 04-12-2009
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
  
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 19
rgstuamigo Va por buen camino
Arrow 
Código Delphi [-]
Uses Math;
.... 
function LenghtParteEntera(numero: Real): integer;
begin
Result:=Trunc(Log10(numero))+1;
end;
.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita