Zeitzonen Berechnen

[chrisw]

Ich denke Du musst die eigene ZeitZone (GMT+1) bzw (GMT +2 bei Sommerzeit) abziehen.

Guckst Du.

Delphi-Quellcode:

function GetGMTDiff (diff : Integer): TDateTime;
var TZ : Time_Zone_Information;
    h,m,s,milsec : Word;
begin
  DecodeTime(now,h,m,s,milsec);
  GetTimeZoneInformation(TZ);
  h := h + diff + TZ.Bias div 60;  //TZ.Bias div 60 ist bei GMT +1 :-1
  if h >= 24 then h := h -24;
  Result := EncodeTime(h,m,s,milsec);
end;

procedure TForm1.Button1Click(Sender: TObject);
var TZ : Time_Zone_Information;
    h,m,s,milsec : Word;
begin
  Showmessage(TimeToStr(GetGMTDiff(9)));
end;