Gracias por tu pronta respuesta.
Este el codigo donde ejecuto el procedimiento almacenado dentro de una funcion que devuelve un valor TDate. El campo en la DB es Date:
Código Delphi
[-] with Datos.IBQr_Obt_UltimaFechaCierre do
begin
Close;
Params[0].Value:=Id_Igl;
Open;
end;
Result:=Datos.IBQr_Obt_UltimaFechaCierreC_ULTIMAFECHA.AsDateTime;
Y este es el codigo de la consulta que recibe el valor de la funcion arriba citada:
Código Delphi
[-]with IBQr_FechaTCierre do
begin
Close;
Params[0].Value:=Id_Igl;
Params[1].Value:=UltimaFechaCierre; Params[2].Value:=DateOf(DTP_4.Date);
Open;
end;
Lo curioso para mi es que si en lugar de la variable UltimaFechaCierre de tipo TDate colocara esto strToDate('fecha a discrecion') funciona perfectamente.