Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Zona Horaria (https://www.clubdelphi.com/foros/showthread.php?t=36766)

palets 23-10-2006 19:41:06

Zona Horaria
 
Saludos,

Trabajo con D6, como puedo revisar cual es la zona horaria y el horario de verano del sistema para porteriormente, comprararla y en casos determinadas, cambiarlas. Esto lo necesito saber por que aunque windows o algunos componentes actualizan las fecha y hora con respecto a un servidor, si no esta configurado correctamente la zona horaria y el horario de verano, actualizarán incorrectamente la hora.

Gracias.

seoane 23-10-2006 20:34:34

Dispones de la función GetTimeZoneInformation, que te devuelve una serie de información sobre zona horaria. En el ejemplo siguiente se obtiene la diferencia entre la hora local y GMT, pero la estructura TIME_ZONE_INFORMACION muestra además información sobre el horario de verano. Revisa la ayuda para ver una lista completa.

Código Delphi [-]
var
  Info: TIME_ZONE_INFORMATION;
  Str: string;
  Bias: TDateTime;
begin
  GetTimeZoneInformation(Info);
  Bias:= abs(Info.Bias) / 1440;
  if Info.Bias < 0 then
    Str:='Zona horaria: GMT+' + TimeToStr(Bias) + #13
  else
    Str:='Zona horaria: GMT-' + TimeToStr(Bias) + #13;
  Bias:= abs(Info.Bias + Info.DaylightBias) / 1440;
  if Info.Bias + Info.DaylightBias < 0 then
    Str:= Str + 'Zona horaria: UTC+' + TimeToStr(Bias)
  else
    Str:= Str + 'Zona horaria: UTC-' + TimeToStr(Bias);
  ShowMessage(Str);
end;

palets 23-10-2006 20:44:57

Gracias
 
Muchas gracias, y en realidad ya habia buscado aqui mismo preguntas similares y creo que es el camino para resolver esto.


La franja horaria es GMT +2. Ahora son las 15:20:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi