Gracias por la ayuda:
Para extraer la parte entera de un numero real:
1. trunc(NumeroReal,0)
2, round( NumeroReal - NumeroReal %1)
La opcion NumeroEntero = NumeroReal::Int lo que hace es redondear como la
funcion round, NO extrae la parte entera.
Gracias
--
Christian