Contar Dias

[Paradiso]

Hola Amigos De CLub Delphi.



Les comento, en un soft que estoy desarrollando actualmente para una Pesquera, necesito guardar la cantidad de dias de un viaje Normal, para ello
hago lo siguiente ( aclaracion: Delphi 7 + DbExpress+ Interbase):

function CantidadDeDias(Fecha1:Tdate;Fecha2:Tdate):integer; {devuelva la cantidad de dias entre dos fechas}
begin
if DaysBetween(Fecha1,Fecha2) = 0 then result := 1
else result := DaysBetween(Fecha1,Fecha2);
end;

La Cuestion es que si yo ingreso, por medio de TxDBDateEdit, por ejemplo
01/06/04 como fecha Inicio y 10/06/04 como fecha final. En Teoria me tendria que devolver 10 dias, PERO ME DEVUELVE 9.!!!
Ahora si ingreso cualquier otra fecha que no sea a partir del primero de mes, el calculo lo hace bien.

Espero haber sido claro, y desde Muchisimas Gracias.!!!!!!

Paradiso.