Convertir YYYYMMDD a date

[marcoszorrilla]

Para el ejemplo de formato que presentas prueba esto otro:
'2009-01-08T20:40:49.523-02:00'

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
dFecha:TDate;
begin
//ShowMessage(FormatDateTime('dd/mm/yyyy HH:mm:ss',TextoAFechayHora(Edit1.Text)));
TextoAFechayHora(Edit1.Text);
end;

function TextoAFechayHora(S:String):TDateTime;
var
aa,mm,dd,hh,mn,ss,ms:Word;

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

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

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

Un Saludo.

[marilinspi]

pero que grande!!!! muchisimas gracias... voy a aprender a usar esa funcion, esta buenisima

[[BlueSteel]]

Estimados, estaba implementando la funcion que dices, pero parece que me falta agregar una unidad ya que cuando compilo me da error

[Error] rutinas.pas(48): Undeclared identifier: 'EncodeDateTime'
[Error] rutinas.pas(50): Undeclared identifier: 'ShowMessage'
[Fatal Error] AbonoCodigo.dpr(23): Could not compile used unit 'rutinas.pas'

gracias...

Salu2

[ecfisa]

Hola BlueSteel.

La función EncodeDateTime y el procedimiento ShowMessage, están declarados en las units DateUtils y Dialogs respectivamente.

Un saludo.

[[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

[rrf]

Hola BlueSteel.

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

Lo primero que se me ocurre que podría ser la causa es: ¿Será porque espera Mes/Día/Año y lo que le ofreces es Día/Mes/Año?

¿Lo has probado con una fecha que valga para ambos formatos (como 3/2/2011)? Si al hacerlo no te da error, entonces muy posiblemente esa sea la causa.

Saludos.

[ecfisa]

Hola BlueSteel.

Coincido con lo que dice el amigo rrf.
Hice la prueba de este modo y no me dió ningún error:

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(aa, mm, dd, hh, mn, ss, ms);
  except
   raise Exception.Create('Formato inválido');
  end
end;

Con esta llamada:

Código Delphi [-]
...
  vFecha:= DateToStr(Now);
  vHora:= TimeToStr(Now);
  TextoAFechayHora(Concat(vFecha,' ',vHora));
...

Un saludo.