Obtener determinado dígito de un número

[ecfisa]

Hola xneox.

Código Delphi [-]
function ObtenerDigito(Numero: Integer; const Posic: Byte): Integer;
var
  Inverso, Resto, i: Integer;
begin
  // Invertir
  Inverso:= 0;
  while Numero > 0 do
  begin
    Resto  := Numero mod 10;
    Inverso:= Inverso * 10 + Resto;
    Numero := Numero div 10;
  end;
  // Obtener dígito
  for i:= 1 to Posic do
  begin
    Result := Inverso mod 10;
    Inverso:= Inverso div 10;
  end;
end;

Saludos.