Discussion :

[ddubois]

J'ai 2 TDateTime que je souhaite ajouter

La fonction InternalCalcTimeZoneBias renvoie le décalage de l'heure locale par rapport à l'heure GMT soit +2h00 en france en heure d'été (+1h00 en hivers pour info) au format 02:00:00

Ces 2h00 j'aimerais les ajouter à ma fonction "MaDate:TDateTime" qui représente l'heure GMT, mais l'appel :

Edit5.Text := DateTimeToStr (MaDate + InternalCalcTimeZoneBias);
ne fonctionne pas car j'ai -2h00 sur l'heure GMT au lieu de +2h00 !

Comment cumuler l'heure GMT avec le Décalage soit comment additionner 2 TDateTime ???

Malgrès mes nombreux tests je n'ai pu trouvé la solution...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
//Calculer le décalage de l'heure locale par rapport à l'heure GMT :
 function InternalCalcTimeZoneBias : TDateTime;
 const Time_Zone_ID_DayLight = 2;
 var TZI: TTimeZoneInformation;
     TZIResult: Integer;
     aBias : Integer;
 begin
   TZIResult := GetTimeZoneInformation(TZI);
   if TZIResult = -1 then Result := 0
   else begin
     if TZIResult = Time_Zone_ID_DayLight then aBias := TZI.Bias + TZI.DayLightBias
     else aBias := TZI.Bias + TZI.StandardBias;
     Result := EncodeTime(Abs(aBias) div 60, Abs(aBias) mod 60, 0, 0);
     if aBias < 0 then Result := -Result;
   end;
 end;
 
begin
 Result := aLocalDateTime + InternalCalcTimeZoneBias;
end;

Merci,

Denis

[Andnotor]

A l'arrivée, j'ai pas compris dans quel sens tu veux faire ta conversion...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses DateUtils;
 
//UTC -> Local
function GetLocalTime(aUTC :TDateTime) :TDateTime;
var
  TZI :TTimeZoneInformation;
begin
  case GetTimeZoneInformation(TZI) of
    TIME_ZONE_ID_STANDARD : Result := IncMinute(aUTC, -(TZI.Bias +TZI.StandardBias));
    TIME_ZONE_ID_DAYLIGHT : Result := IncMinute(aUTC, -(TZI.Bias +TZI.DaylightBias));
  end;
end;
 
//Local -> UTC
function GetUTC(aLocalTime :TDateTime) :TDateTime;
var
  TZI :TTimeZoneInformation;
begin
  case GetTimeZoneInformation(TZI) of
    TIME_ZONE_ID_STANDARD : Result := IncMinute(aLocalTime, TZI.Bias +TZI.StandardBias);
    TIME_ZONE_ID_DAYLIGHT : Result := IncMinute(aLocalTime, TZI.Bias +TZI.DaylightBias);
  end;
end;

[ddubois]

Je veux passe de GMT à l'heure locale

(GMT et UTC c'est pareil ?)

Merci.

[NABIL74]

bonjour à tout le monde,
voici des fonctions qui pourront t'aider à résoudre ton problème. pour faire la convertion de:
"UTC ou GMT ---> Local time" et de "Local time ---> UTC ou GMT":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function UTCToSystemTime(UTC : TDateTime) : TDateTime; //UTC ou GMT ---> Local time
var TimeZoneInf : _TIME_ZONE_INFORMATION;
    UTCTime,LocalTime: TSystemTime;
begin
  if GetTimeZoneInformation(TimeZoneInf) < $FFFFFFFF then
  begin
    DatetimetoSystemTime(UTC,UTCTime);
    if SystemTimeToTzSpecificLocalTime(@TimeZoneInf,UTCTime,LocalTime) then
    begin
     result := SystemTimeToDateTime(LocalTime);
    end else result := UTC;
  end else result := UTC;
  end;
 
 
function TzSpecificLocalTimeToSystemTime(lpTimeZoneInformation: PTimeZoneInformation;
  var lpLocalTime, lpUniversalTime: TSystemTime): BOOL; stdcall; external kernel32 name 'TzSpecificLocalTimeToSystemTime';
{$EXTERNALSYM TzSpecificLocalTimeToSystemTime}
 
function SystemTimeToUTC(Sys : TDateTime):TDateTime; ////Local time ---> UTC ou GMT
var TimeZoneInf : _TIME_ZONE_INFORMATION;
    SysTime,LocalTime: TSystemTime;
begin
  if GetTimeZoneInformation(TimeZoneInf) < $FFFFFFFF then
  begin
    DatetimetoSystemTime(Sys, SysTime);
    if TzSpecificLocalTimeToSystemTime(@TimeZoneInf,SysTime,LocalTime) then
      result:=SystemTimeToDateTime(LocalTime)
    else result:=Sys;
  end else result:=Sys
  end;

A+