Extracción de parte entera de un flotante

[roman]

Quizá quiere algo más artesanal

Código Delphi [-]
function ParteEntera(X: Double): Integer;
var
  S: String;

begin
  S := FloatToStr(X);
  Delete(S, Pos('.', S), MaxInt);
  Result := StrToInt(S);
end;

// Saludos