Consulta - FechaHoraHusoGenRegistro

[rafa1963]

Bunas tardes compañer©s alguien me puede orientar de como puedo obtener de una fecha los valores para el registro "FechaHoraHusoGenRegistro".
Estoy utilizando para la extracción a un DBedit esto --> FormatDateTime('dd/mm/yyyy hh:nn:ss', FechaHora) pero no creo que sea lo que se necesita.
Agradecería vuestra ayuda.

Gracias

[Neftali [Germán.Estévez]]

Puedes usar la función: DateToISO8601
https://docwiki.embarcadero.com/Libr....DateToISO8601

Para convertir de una fecha/hora "normal" a lo que necesita ese nodo del XML.

[rafa1963]

Gracias por tu pronta respuesta German.
Lo he puesto de esta forma

Código Delphi [-]
{$R *.DFM}

function DateToISO8601(const ADate: TDateTime; AInputIsUTC: Boolean = true): string;
 Var
  FechaISO: string;
begin
  FechaISO := DateToISO8601(Now, False); // Now obtiene la fecha/hora actual
end;

y en el XML

Código Delphi [-]
SistemaInformatico.AddChild('FechaHoraHusoGenRegistro').Text := (FechaISO);

Pero me da error.
Me puedes ayudar ???.
Gracias

[Carlos]

Empezado por rafa1963

Gracias por tu pronta respuesta German.
Lo he puesto de esta forma

{$R *.DFM}

function DateToISO8601(const ADate: TDateTime; AInputIsUTC: Boolean = true): string;
Var
FechaISO: string;
begin
FechaISO := DateToISO8601(Now, False); // Now obtiene la fecha/hora actual
end;

y en el XML

SistemaInformatico.AddChild('FechaHoraHusoGenRegistro').Text := (FechaISO);
Pero me da error.
Me puedes ayudar ???.
Gracias

Estaría bien saber el error y que valor está tomando 'FechaISO'.

[rafa1963]

Hola Carlos, gracias por tu pronta respuesta. Señalar que yo trabajo con delphi 2010.
Este es el código que meto en un botón para capturar la fecha actual de un DateTimePicker

Código Delphi [-]
var
MiFecha : TDatetime;
  FechaISO: string;
begin
MiFecha := datetimePicker1.Datetime;
 FechaISO := FormatDateTime('yyyy-MM-dd\"T"\HH:mm:ss.SSSZ',MiFecha); 
  // Para mostrarla 
  ShowMessage(FechaISO);
end

Pero creo que esto no está correcto.
Gracias.

[Neftali [Germán.Estévez]]

Por favor, utiliza TAG's cuando añadas código a los mensajes.