Datum aus anderer Zeitzone in TDateTime

[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;