Int32 on input should have specified numbers count on output

[DeddyH]

A simple solution:

Delphi-Quellcode:

function Number5Digits(aNumber: integer): Cardinal;
begin
  Result := abs(aNumber);
  while Result > 99999 do
    Result := Result div 10;
  while Result < 10000 do
    Result := Result * 10;
end;