Crear cadena aaaa-mm-ddThh:mm:ss

[richy08]

Buenas trades compañeros esoty tratando de crear la fecha con el formato
aaaa-mm-ddThh:mm:ss lo hago con el siguiente codigo

Código Delphi [-]
  MiFecha := now(); //07-05-09 23:37
  DecodeDate(MiFecha,Year,Month,Day);
  DecodeTime(MiFecha,Hour,Min,Sec,Msec);
 Fecha:= IntToStr(Year)+'-'+IntToStr(Month)+'-'+IntToStr(Day)+'T'+inttostr(Hour)+':'+inttostr(Min)+':'+inttostr(Sec);

pero dicho codigo tiene un error por que cuando una cifra es <9 al hacer el
inttostr(Sec) el 09 lo convierte a 9 ahi alguna funcion que me respete el 0 a la izquierda del 9

saludos

[ecfisa]

Hola.

Se me ocurre que podés utilizar la función StringOfChar a ese efecto:

Código Delphi [-]
  Fecha:= IntToStr(Year)+'-'+IntToStr(Month)+'-'+IntToStr(Day)+' T '+
          IntToStr(Hour)+':'+IntToStr(Min)+':'+
          StringOfChar('0',2-Length(IntToStr(Sec)))+IntToStr(Sec);

Saludos.

[richy08]

Empezado por ecfisa

Hola.

Se me ocurre que podés utilizar la función StringOfChar a ese efecto:
Código Delphi [-] Fecha:= IntToStr(Year)+'-'+IntToStr(Month)+'-'+IntToStr(Day)+' T '+ IntToStr(Hour)+':'+IntToStr(Min)+':'+ StringOfChar('0',2-Length(IntToStr(Sec)))+IntToStr(Sec);


Saludos.

gracias ecfisa le voy a echar un ojo

saludos

[Casimiro Notevi]

¿No te sirve FormatDateTime?

Código Delphi [-]
var
  cFecha : string;
begin
  cFecha := FormatDateTime('yyyy-mm-dd hh:nn:ss',now);

[richy08]

Empezado por Casimiro Notevi

¿No te sirve FormatDateTime?

Código Delphi [-]var cFecha : string;
begin cFecha := FormatDateTime('yyyy-mm-dd hh:nn:ss',now);

gracias por la respuesta pero creo que no por que como pongo laT dentro del formato??
yyyy-mm-ddThh:nn:ss

[Casimiro Notevi]

Pues por ejemplo así:

Código Delphi [-]
var
  cFecha : string;
begin
  cFecha := formatdatetime('yyyy-mm-dd',now)+'T'+formatdatetime('hh:nn:ss',now);

[Casimiro Notevi]

Y por cierto, ¿para qué sirve la 'T'?

[richy08]

Empezado por Casimiro Notevi

Y por cierto, ¿para qué sirve la 'T'?

gracias casimiro creo que esto si funcionara, a pues lo de la T es por que es requerimiento para la factura electronica que debe de ir en ese formato

saludos

[[maeyanes]]

Hola...

Prueba así:

Código Delphi [-]
cFecha := FormatDateTime('yyyy-mm-dd''T''hh:nn:ss', now);

Saludos...