PROCEDIMIENTO PARA SEPARAR ENTEROS Y DECIMALES

long ll_entero,ll_mide,pos_punto,ll_decimal
dec{2} numero = 10.25


ll_entero = truncate(numero, 0)
ll_mide= len(string(numero))
pos_punto=pos(STRING(numero), '.' )
ll_decimal = long(right(string(numero), (ll_mide - pos_punto)) )

//RESULTADOS :
//ll_entero = 10
//ll_decimal = 25


CONCLUSIÓN :
Con este pequeño código podemos separar los que son enteros y decimal de un numero decimal
By G.C.