Parte entera y decimal

[joanajj]

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...

[tcp_ip_es]

podría ser algo asi....




//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

[roman]

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

// Saludos

[tcp_ip_es]

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

[roman]

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

:D

[joanajj]

Gracias a todos y saludos... :)

[ornellatallante]

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