conversión fecha de tipo instant (java) a date (delphi)

[Galahad]

Hola, buenos días.
Estoy descargando de un servicio web un JSON con fechas con este formato:
fechaOperacion":"2024-06-30T22:00:00Z"
el caso es que estaba capturando con funciones de cadena esta fecha y capturandola como 30/06/2024, pero resulta que no,, que la fecha correcta una vez convertida tiene que ser '01/07/2024'

En la documentación de dicho servicio indican que hay que convertirla así.

import java.time.Instant
import java.time.LocalDateTime
import java.time.ZoneId
//Transformamos la cadena obtenida desde el API a un objeto de tipo Instant
Instant instant = Instant.parse('2023-05-09T22:00:00z')
//Si se quiere un dato de tipo Date
Date.from(instant)
//Si se quiere un dato de tipo LocalDateTime
LocalDateTime.ofInstant(instant, ZoneId.of('Europe/Madrid'))
//Si se quiere un dato de tipo LocalDate
instant.atZone(ZoneId.of('Europe/Madrid')).toLocalDate()

He encontrado una manera de poder convertir esa fecha a un tipo de dato datetime de delphi.
he encontrado esta función:

Código Delphi [-]
function JavaToDateTime(Value: Int64): TDateTime;
begin
  Result := UnixToDateTime(Value div 1000);
end;

Mi intención era probarla (no se si funcionará), pero no consigo convertir la cadena : 2024-06-30T22:00:00Z a un valor de tipo Int64 que requiere la función.

¿ Alguien conoce la manera de hacerlo o un camino más directo para dicha conversión ?
Saludos..

[cloayza]

Estimado Galahad, le sugiero esta función para convertir la fecha que viene en el JSON...

Código Delphi [-]
uses  System.DateUtils;
{$R *.dfm}

function ConvertDateFromStr(SDate:String):TDateTime;
var
  dt: TDateTime;
begin
     if not TryStrToDateTime(SDate, dt) then
        dt := System.DateUtils.ISO8601ToDate(SDate);

     result := DateOf(dt);
end;

procedure TForm1.btnConvertClick(Sender: TObject);
begin
    //Edit1.Text:='2024-06-30T22:00:00Z';

     DateTimePicker1.DateTime :=ConvertDateFromStr(Edit1.Text);

   //El resultado es 30-06-2024...
end;

Saludos cordiales

[Galahad]

Empezado por cloayza

Estimado Galahad, le sugiero esta función para convertir la fecha que viene en el JSON...

Código Delphi [-]
uses  System.DateUtils;
{$R *.dfm}

function ConvertDateFromStr(SDate:String):TDateTime;
var
  dt: TDateTime;
begin
     if not TryStrToDateTime(SDate, dt) then
        dt := System.DateUtils.ISO8601ToDate(SDate);

     result := DateOf(dt);
end;

procedure TForm1.btnConvertClick(Sender: TObject);
begin
    //Edit1.Text:='2024-06-30T22:00:00Z';

     DateTimePicker1.DateTime :=ConvertDateFromStr(Edit1.Text);

   //El resultado es 30-06-2024...
end;

Saludos cordiales

Muchas gracias por contestar.
He probado esa función , con la fecha : 2024-06-30T22:00:00Z , y me devuelve 30/06 no 01/07.
Seguire buscando...

[Casimiro Notevi]

¿Y qué esperas que te devuelva?

[Galahad]

Empezado por Casimiro Notevi

¿Y qué esperas que te devuelva?

si, tienes razón, la conversión es correcta (30/06)
habiendo investigado algo mas ,creo que el problema es la petición de datos al json, el problema tiene que estar que al pedir los datos al servicio web desde el '01/07' por algún tema de la configuración horaria UTC me está devolviendo también los del 30/06.
sigo buscando..

[Casimiro Notevi]

Supongo que te refieres a que si la hora UTC es, por ejemplo, las 22:00:00 y en tu ubicación local tienes 3 horas más, entonces sería la 01:00:00 del día siguiente.
Así que, también supongo, que si en el json viene la hora "real" UTC, tú tendrás que "convertirla" a tu hora local, y el resultado puede se el del ejemplo que he puesto.

[Galahad]

Empezado por Casimiro Notevi

Supongo que te refieres a que si la hora UTC es, por ejemplo, las 22:00:00 y en tu ubicación local tienes 3 horas más, entonces sería la 01:00:00 del día siguiente.
Así que, también supongo, que si en el json viene la hora "real" UTC, tú tendrás que "convertirla" a tu hora local, y el resultado puede se el del ejemplo que he puesto.

Hola Casimiro,, efectivamente, ese era el problema...
Al final lo he podido resolver así:

Código Delphi [-]
 
  if not trystrtodatetime( cfecha,dt ) then
      dt := system.dateutils.ISO8601ToDate( cfecha );
   result := TTimeZone.Local.ToLocalTime(dt);

Con esto efectivamente ya aparece la fecha local de esa fecha UTC (01/07)
Muchas gracias por todo,, un abrazo

[Casimiro Notevi]