guardando fecha interbase 6

[fixarg]

tengo el siguietne problema...
uso interbase 6 delphi 5
necesito guardar la fecha actual en una tabla master...
por lo cual utilizo un procedimiento almacenado, cuyo codigo es el siguiente

<DELPHI>
set TERM!!;
CREATE PROCEDURE anadir_voucher (tipo varchar(12), nombreP varchar(20), apellidoP varchar(20), extras varchar(30), npersonas integer, codigoreserva integer, aclaracion varchar(300), usuario integer,prestador integer, modificado varchar(1), fecha date )
RETURNS (VOUCHERKEY INTEGER)
AS
begin
VOUCHERKEY = gen_id(vouchers_voucherkey_gen, 1);
insert into vouchers(voucherkey, tipo,nombreP,apellidoP,extras,npersonas,codigoreserva,aclaracion,usuario,prestador,modificado,fecha) values(:VOUCHERKEY, :tipo,:nombreP, :apellidoP, :extras, :npersonas, :codigoreserva, :aclaracion, :usuario, restador, :modificado, :fecha); end;!!
set TERM ;!!
</DELPHI>


he probado varias combinaciones pero no logro nada...
solo hago que funcione si coloco

IBStoredProc1.Params.ParamValues['fecha']:='12/12/05';

por lo cual deduje que esto deberia funcionar

IBStoredProc1.Params.ParamValues['fecha']:=DatetoStr(date);

pero no!!... da error de conversión....
podrian darme una mano?

[fixarg]

gracias ya resolvi mi problema... lo pongo aca por las dudas que alguien tenga el mismo problema...
me estaba fallando la imaginación solamente

SOLCION:

IBStoredProc1.Params.ParamValues['fecha']:=FormatDateTime('mm/dd/yyyy',Date);

[[Héctor Randolph]]

Hola fixarg!

Yo te sugiero que utilices las variables que trae el Intebase, entre ellas está NOW que sirve para concer la hora actual en el servidor.

Tal vez podriás intentar algo como esto

Código SQL [-]
set TERM!!;
CREATE PROCEDURE anadir_voucher (tipo varchar(12), nombreP varchar(20),
       apellidoP varchar(20), extras varchar(30), npersonas integer, 
       codigoreserva integer, aclaracion varchar(300), usuario nteger,
       prestador integer, modificado varchar(1), fecha date )
RETURNS (VOUCHERKEY INTEGER)
AS
begin
  VOUCHERKEY = gen_id(vouchers_voucherkey_gen, 1);
  insert into vouchers
   ( voucherkey,tipo,nombreP,apellidoP,extras,
     npersonas,codigoreserva,aclaracion,
     usuario,prestador,modificado,fecha) 
  values 
  (:VOUCHERKEY, :tipo,:nombreP, :apellidoP, :extras,
   :npersonas, :codigoreserva, :aclaracion, 
   :usuario, restador, :modificado, 'NOW');
end;!!

set TERM ;!!

Espero que te sea útil.