Parte entera y decimal
 

Buenos días, me gustaría saber si hay alguna función que devuelva por un lado la parte entera y por otro la decimal de un número.

Por ej. 14567,923

parte entera: 14567
parte decima: 923

Saludos a todos...

podría ser algo asi....

Código Delphi [-]


//CadenaFloat, ParteEntera y ParteDecimal son de tipo string 

CadenaFloat:= floattostr(Tuvariablefloat); 
ParteEntera:= copy(CadenaFloat,0,pos(',',CadenaFloat)-1);
ParteDecimal:= copy(CadenaFloat,pos(',',CadenaFloat)+1,length(CadenaFloat));

Luego si quieres puedes pasar las variables ParteEntera y ParteDecimal a tipo string con la funcion strtoint.

Espero que te sirva... Saludos, Tony

La función Trunc devuelve la parte entera y la función Frac la parte decimal.

// Saludos

Nuevo dicho: "Siempre existirá una respuesta mejor a la mía, aunque la mía funciona " :( :D

Bueno, es que creo que estas funciones existen desde que Niklaus Wirth diseñó Pascal.

:D

Gracias por las respuestas...
 

Gracias a todos y saludos... :)

Gracias a todos. Me ayudó mucho este hilo. Siempre es bueno saber cómo "re-crear" las funciones. Eso habla bien de la creatividad de un programador. Me recuerda a un profesor que admiro mucho. Saludosssssssssss:D