[gelöst] UniversalTime to LocalTime

[kirchfritz]

Hallo,
ich habe den folgenden Zeitstempel als Zeichenkette vorliegen: "20230104105500Z" ("Z" steht für ZULU-Zeit)
Das entspricht nach meinem Kenntnisstand "04.01 2023 11:55:00"

Wie kann ich meine Zeitstempel-Zeichenkette in die für Menschen lesbare Form "04.01 2023 11:55:00" transformieren?

StrToDateTime('20230104105500Z') -----> not a valid dateformat

Irgendwie stehe ich auf dem Schlauch. Kann mir da mal jemand auf die Sprünge helfen?

Fritz

[theo]

Vielleicht hilft das?
https://wiki.lazarus.freepascal.org/PascalTZ

[kirchfritz]

Vielleicht hilft das?
https://wiki.lazarus.freepascal.org/PascalTZ

Hilft nicht wirklich weiter. Bietet jedenfalls keine Ansätze um aus meiner Zeichenkette mit "Z" am Ende ein TDateTime zu erstellen.

[af0815]

ZULU ist UTC im Militärsprache.
Das heisst du muss einmal herausfinden ob hinten ein Z steht, Dann kannst du das Z wegmachen und mit UniversalTimeToLocal das Zeitformat wandeln. So einfach ZuluToLocal wirst du nicht finden.

Quote aus https://wiki.lazarus.freepascal.org/PascalTZ

LocalTimeToUniversal and UniversalTimeToLocal in the dateutils unit to convert between local time and UTC time

[theo]

Einlesen des Strings müsste so gehen:

Code: Alles auswählen

uses DateUtils;
...
dt:=ScanDateTime('yyyymmddhhnnss"Z"','20230104105500Z');  

[Winni]

Hi!

ScanDateTime ist eine eierlegende Wollmichsau -

aber leider manchmal buggy.

Winni

[siro]

wenn der Ausgangsstring immer identisch aussieht, kannst Du es sehr einfach selbst zusammenbasteln:

Code: Alles auswählen

procedure ZULU(var z:String);
var jahr,monat,tag,stunde,minute,sekunde:string;
begin
  jahr   :=copy(z,1,4);
  monat  :=copy(z,5,2);
  tag    :=copy(z,7,2);
  stunde :=copy(z,9,2);
  minute :=copy(z,11,2);
  sekunde:=copy(z,13,2);
  z:=tag+'.'+monat+'.'+jahr+' '+stunde+':'+minute+':'+sekunde;
end;

procedure TForm1.FormCreate(Sender: TObject);
var z:string;
begin
  z:='20230104105500Z';     // der Ausgangsstring
  ZULU(z);                  // wird umgewandelt
  caption:=z;               // und ausgegeben
end;
               

[kirchfritz]

wenn der Ausgangsstring immer identisch aussieht, kannst Du es sehr einfach selbst zusammenbasteln:

Code: Alles auswählen

procedure ZULU(var z:String);
var jahr,monat,tag,stunde,minute,sekunde:string;
begin
  jahr   :=copy(z,1,4);
  monat  :=copy(z,5,2);
  tag    :=copy(z,7,2);
  stunde :=copy(z,9,2);
  minute :=copy(z,11,2);
  sekunde:=copy(z,13,2);
  z:=tag+'.'+monat+'.'+jahr+' '+stunde+':'+minute+':'+sekunde;
end;

procedure TForm1.FormCreate(Sender: TObject);
var z:string;
begin
  z:='20230104105500Z';     // der Ausgangsstring
  ZULU(z);                  // wird umgewandelt
  caption:=z;               // und ausgegeben
end;
               

Bei diesem Vorgehen erhalte ich aber als Uhrzeit 10:55:00 und nicht 11:55:00 !!

[theo]

Code: Alles auswählen

uses DateUtils;
...
var dt:TDateTime;
...
  dt:=UniversalTimeToLocal(ScanDateTime('yyyymmddhhnnss"Z"','20230104105500Z'));  

https://www.freepascal.org/docs-html/rt ... local.html

[kirchfritz]

Das scheint die Lösung zu sein.
Danke an alle für die Lösungsfindung!