Convertir YYYYMMDD a date

[marilinspi]

Hola, muchas gracias por la pronta respuesta. Lo resolvi con la opcion de marcoszorrilla. Gracias hasta la proxima

[marilinspi]

hola yo de nuevo una ayudita mas, yo obtengo este string como respuesta de algo '2009-01-08T20:40:49.523-02:00' y necesito compararlo con la fecha y hora actual para seber si esta vencido o no.. como haria? es decir, tendria que convertir eso a TDateTime... Disculpen las molestias, es que estoy con lo de la Factura Electronica y se me presentasn cosas a cada rato. Gracias, espero su ayuda

[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