Zeitumrechnung möglich?

[DeddyH]

Gibt es das dort auch? AFAIK ist das eine rein europäische Erfindung.

[Jonas Shinaniganz]

Ich sehe auch grade noch speziell diesen Eintrag:

http://docwiki.embarcadero.com/Libra...tils.TTimeZone

Vielleicht rechnest du einfach hin und dann zurück ->,

du schaffst das schon

[Sir Rufo]

Zitat von DeddyH:

Gibt es das dort auch? AFAIK ist das eine rein europäische Erfindung.

Diese Erfindung gab es schon, wo noch keiner was von EU wusste

[DeddyH]

Gerade gefunden: http://www.zeitumstellung.de/zeitums...rnational.html

Zitat:

In den US-Bundesstaaten Arizona, Hawaii und Teilen von Indiana sowie in Puerto Rico, Guam, den Virgin Islands und American Samoa gibt es keine Zeitumstellung (vielen Dank an Herrn Wolfgang Buehrer/ Atlanta, für diese Info).

[Jonas Shinaniganz]

"No daylight saving time" Hat er doch im ersten Post geschrieben...

[DeddyH]

Dann hab ich das ja nur bestätigt . Macht die Berechnung etwas einfacher wie schon beschrieben.

[nuclearping]

Zitat von Chriscode:

Vielen Dank für eure Antworten.

Leider hört sich das ganze relativ kompliziert und für mich als Anfänger nahezu nicht umsetzbar an.

Gibt es keine einfachere Möglichkeit? z.B. Datum und Zeit in einen Timestamp zu konvertieren und daraus die richtige Zeit holen?

LG,
Chris

Schau dir mal StrToDateTime / TryToStrDateTime an. Dazu das Gegenstück: FormatDateTime. Kann sein, dass ich jetzt was mit PHP verwechsel, aber imho konntest du beim Datumsformat auch irgendwas mit Zeitzonen angeben. Aber wie schon gesagt ... Wahrscheinlich verwechsel ich da grad was mit PHP.

[DeddyH]

Ich habe es nicht getestet (und evtl. auch wieder zu kompliziert gedacht), aber klappt das hier?

Delphi-Quellcode:

uses DateUtils;

function ArizonaTimeToMEZ(aDateTime: TDateTime): TDateTime;
const
  UTC_DIFF                = 7;
  SUMMERTIME_RELEVANTHOUR = 2;

  function UTCToMEZ(aDateTime: TDateTime): TDateTime;
  var
    SummerTimeStart, SummerTimeEnd: TDateTime;
    Year: word;

    function LastDayOfWeekOfMonth(Year, month: Integer; DayOfWeek: word): TDate;
    var
      temp: TDate;
    begin
      temp := IncMonth(EncodeDate(Year, month, 1));
      Result := IncDay(temp, (DayOfWeek - DayOfTheWeek(temp) + DaysPerWeek)
        mod DaysPerWeek - DaysPerWeek);
    end;

  begin
    Year := YearOf(aDateTime);
    SummerTimeStart := LastDayOfWeekOfMonth(Year, MonthMarch, DaySunday);
    SummerTimeStart := IncHour(DateOf(SummerTimeStart), SUMMERTIME_RELEVANTHOUR);
    SummerTimeEnd := LastDayOfWeekOfMonth(Year, MonthOctober, DaySunday);
    SummerTimeEnd := IncHour(DateOf(SummerTimeEnd), SUMMERTIME_RELEVANTHOUR);
    Result := aDateTime;
    if DateTimeInRange(aDateTime, SummerTimeStart, SummerTimeEnd) then
      Result := IncHour(Result);
  end;

begin
  Result := UTCToMEZ(IncHour(aDateTime, UTC_DIFF));
end;

[Bummi]

Ich habe kurz eine allgemeine Klasse gebastelt, vielleicht kannst Du mit der was anfangen, gegf. musst Du sie noch etwas aufbohren.

[Chriscode]

Hallo nochmals,
vielen vielen Dank für die zahlreichen, schnellen und sehr hilfreichen Antworten.

Sowohl die Codelösung von DeddyH als auch die Alternative von Bummi funktionieren, ich bin zusätzlich dank Jonas Shinaniganz noch auf folgende Lösung aufmerksam geworden: http://code.google.com/p/delphi-tzdb/

Damit kann man von einer Timezone in Universalzeit und von dort in eine andere Timezone umwandeln.

Jetzt bin ich unsicher welche Lösung die "beste", also sicherste und zuverlässigste ist. Insbesondere in Bezug auf Sommer/Winterzeit und Kalenderbesonderheiten.

LG,
Chris