Datum aus anderer Zeitzone in TDateTime

[Cubysoft]

Hallo,

ich habe einen String vorliegen:

Code:

2015-07-22 23:04:20 UTC

Dies muss ich in eine TDateTime Variable bekommen, unter berücksichtigung der Zeitzone des Benutzers. Ich finde dazu leider keine Funktion... muss ich das irgendwie selbst machn? Weiß einer von euch vllt weiter?


Danke!

[Sir Rufo]

Wer hat sich dieses Format denn ausgedacht?

Ist das irgendein Standard?

[Cubysoft]

Nein, ich bekomme die Daten aus einer API. Ich muss halt das Datum bzw die Uhrzeit, so berechnen, dass es zu der Zeitzone passt, die der Benutzer hat. Also in meinem Fall von UTC -> MEZ als eine Stunde addieren. Ich hatte halt irgendwie gehofft, dass es eine fertige Funktion gibt, die UTC zur normalen Zeit macht

[mm1256]

[F1]
System.DateUtils.TTimeZone.UtcOffsetAus RAD Studio API Documentation Übergeordnet: TTimeZone

property UtcOffset: TTimeSpan read GetCurrentUtcOffset;C++

__property System::Timespan::TTimeSpan UtcOffset = {read=GetCurrentUtcOffset};EigenschaftenTyp Sichtbarkeit Quelle Unit Übergeordnet
property public System.DateUtils.pas
System.DateUtils.hpp System.DateUtils TTimeZone
BeschreibungGibt den aktuellen Offset von UTC (Coordinated Universal Time) für eine Zeitzone zurück.

Die Eigenschaft UtcOffset gibt den aktuellen Offset von UTC für die Zeitzone zurück.

Kategorie: API-Dokumentation
[/F1]

[Der schöne Günther]

Mich würden jetzt noch ein paar andere Strings interessieren. Steht da am Schluss immer "UTC"? Wenn nicht, wie werden andere Zeitzonen angegeben?

[Sir Rufo]

Ansonsten gibt es bei http://docwiki.embarcadero.com/Libra...tils.TTimeZone auch noch die Methode ToLocalTime .

Dazu muss man natürlich erst die Zeit bestimmen und dann mit der Methode umrechnen lassen.

[Uwe Raabe]

Man könnte noch eine Prüfung auf den String "UTC" am Ende einbauen, aber das überlasse ich dem geneigten Leser mal als Übung. Stören tut er bei der Umwandlung aber nicht.

Delphi-Quellcode:

function StrUTCToLocalTime(const Value: string): TDateTime;
var
  fmt: TFormatSettings;
begin
  fmt.ShortDateFormat := 'yyyy/mm/dd';
  fmt.DateSeparator := '-';
  fmt.TimeSeparator := ':';
  result := TTimeZone.Local.ToLocalTime(StrToDateTime(Value, fmt));
end;

[p80286]

Zitat von Der schöne Günther:

Mich würden jetzt noch ein paar andere Strings interessieren. Steht da am Schluss immer "UTC"? Wenn nicht, wie werden andere Zeitzonen angegeben?

Wenn man's richtig macht:

Zitat:

Sofern nicht aus dem Zusammenhang eindeutig klar ist, welche Zeitzone gemeint ist, ist immer anzufügen, welchen Offset zur UTC die angegebene Zeit besitzt
Grundformat: 19850412T232050+0100
Erweitertes Format: 1985-04-12T23:20:50+01:00

Erst damit wird die im Beispiel angegebene Uhrzeit eindeutig als UTC 22:20:50 identifizierbar.

(vgl. hier)


Gruß
K-H

[Cubysoft]

Hallo,

danke Uwe für deine Antwort. Ich habe es doch heute erst gebraucht, aber leider kann ich das so nicht übernehmen. Ich habe Delphi XE8 Professional und bei mir wir TTimeZone nicht erkannt. Delphi denkt es ist in Winapi.Windows, aber da ist es wohl nicht. Was ist denn die richtige Unit?

[Klaus01]

Hallo,

in System.DateUtils ist die Klasse zu finden.

Grüße
Klaus