Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.039 Beiträge
 
Delphi 12 Athens
 
#7

AW: Datum aus anderer Zeitzone in TDateTime

  Alt 23. Jul 2015, 11:10
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat