Convertir YYYYMMDD a date

[[BlueSteel]]

Gracias ecfisa.... eran esas las units que faltaban...

ahora estoy con otro problema...

Te cuento...

en un Timer, le asigno la Fecha y Hora del Sistema a una variable de Tipo String de la siguiente forma

Código Delphi [-]
vFecha:=TimeToStr(Now);
vHora:=DateToStr(Now);

Si quiero juntar eso, lo hago con el Concat y me resulta

Código Delphi [-]
ShowMessage(Concat(vFecha,' ',vHora);

por ej. me entrega : 20/01/2011 11:19:23

La funcion la tuve que modificar por que el formato que entregaba era YYYYMMDD

Asi que la deje así

Código Delphi [-]
function TextoAFechayHora(S:String):TDateTime;
var
aa,mm,dd,hh,mn,ss,ms:Word;

begin
  Try
  dd:=StrToInt(Copy(s,1,2));
  mm:=StrToInt(Copy(s,4,2));
  aa:=StrToInt(copy(s,7,4));

  hh:=StrToInt(Copy(s,12,2));
  mn:=StrToInt(Copy(s,15,2));
  ss:=StrToInt(Copy(s,18,2));
  ms:=00;

  Result:=EncodeDateTime(dd,mm,aa,hh,mn,ss,ms);
  Except
  ShowMessage('formato de datos erroneo');
  end
end;

Quiero insertar el dato en la Tabla, para lo cual lo asigno así

Código Delphi [-]
Datos.AQ_Edit.Parameters[3].Value := TextoAFechayHora(Concat(vFecha,' ',vHora));

Ojo.. que cuando inserto desde un DateTimePicker me funciona bien.. pero quiero eliminar este componente del formulario...

Código Delphi [-]
Datos.AQ_Edit.Parameters[3].Value := sFec.DateTime;

pero en tiempo de ejecución me aparece un error

"20/1/2011 11:23:55,0" is not a valid date and time y muestra que el formato no es valido

mi consulta es... por que en el mesaje el concat me muestra el mes con 01 pero el mensaje del error me dice que el mes solo es 1..

bueno, y por ende como puedo solucionar esto..

Salu2