(Resolvido) Gravar hora em campo datetime

[seveN]

Porque consigo gravar a data conforme abaixo e não consigo gravar a hora.

O campo do banco é do tipo datetime

QRCadEscala.ParamByName('DataHoraInicio').AsDate:= StrToDate(Edit5.Text);

QRCadEscala.ParamByName('DataHoraFim').AsDate:= StrToDate(Edit7.Text);

QRCadEscala.ParamByName('DataHoraInicio').AsTime:= StrToTime(Edit6.Text);

QRCadEscala.ParamByName('DataHoraFim').AsTime:= StrToTime(Edit8.Text);

grato.

Pedro

Editado Agosto 22, 2009 por seveN

[Jhonas]

Porque consigo gravar a data conforme abaixo e não consigo gravar a hora.

O campo do banco é do tipo datetime

QRCadEscala.ParamByName('DataHoraInicio').AsDateTime:= StrToDateTime(Edit5.Text); // 10/08/2009 10:20:44

QRCadEscala.ParamByName('DataHoraFim').AsDateTime:= StrToDateTime(Edit7.Text); // 10/08/2009 12:43:00

Veja que o formato do seu Edit devera estar neste formato

10/08/2009 10:20:44

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
var
  ADateAndTime: TDateTime;
begin
  ADateAndTime := StrToDateTime(Edit1.Text);
  Table1.FieldByName('TimeStamp').AsDateTime := ADateAndTime;
end;

abraço

[seveN]

Obrigado pela dica, mas conegui gravar usando:

QRCadEscala.ParamByName('DataHoraInicio').AsDateTime:= StrToDate(Edit5.Text) + StrToTime(Edit6.Text);

QRCadEscala.ParamByName('DataHoraFim').AsDateTime:= StrToDate(Edit7.Text) + StrToTime(Edit8.Text);

grato

Pedro