restar fechas

[hugo_Junior]

ej:
resultado:=trunc(tdatetimepicker1.date-tdatetimepicker2.date)

Tengo que restar 2 fechas, si yo utilizo trunc,round o daysbetween me da como resultado un integer y si yo hago el cálculo de dividir x 365 y luego x30 , me va a seguir dando el mismo error que antes. Porque lo que yo necesito es que si un mes tiene 31 días y el otro 30,ejemplo
( 01/02/07 - 01/03/07=1 mes) y con el Between me daría de resultado 1 día y 1 mes.
Espero haberme explicado bien, disculpen si repito la pregunta pero es urgente.
El between devuelve los días utilizando el calendario real, y lo que necesito es una función o algo que trabaje de la misma manera.