Zona Horaria

[palets]

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]

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.


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]

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