Convertir de hora GMT a hora local

[marceloalegre]

Buenas tardes, estoy leyendo información desde un sistema remoto que me envia la hora GMT, estaría necesitando alguna forma de convertirla a la hora local... o por lo menos saber como hacerlo :confused: Gracias!!!!!

[marcoszorrilla]

Aquí (http://home.hiwaay.net/~krcool/Astro/moon/gmt/)tienes información que te puede ser util.

Un Saludo.

[seoane]

Y aquí tienes algo de código:

http://www.clubdelphi.com/foros/showpost.php?p=163669&postcount=2

[marceloalegre]

Justo estaba por decir que para esto me base en una función hecha por Domingo :) ...


function convertirAGMT(const value:Tdatetime):TDateTime;
var
tZone:TTimeZoneInformation;
begin
//convertir la hora a gmt
GetTimeZoneInformation(tZone);
result:=IncMinute(value,tZone.Bias);
end;
function FechaHoraGMTaLocal(FechaHoraGMT:TDateTime):TDateTime;
var
Info: TIME_ZONE_INFORMATION;
Bias: TDateTime;
begin
GetTimeZoneInformation(Info);
Bias:= abs(Info.Bias) / 1440;
if Info.Bias < 0 then
result:= FechaHoraGMT + Bias
else
result:= FechaHoraGMT - Bias;
end;



Esta esto Correcto?

[cHackAll]

Revisa éste link (http://www.delphi3000.com/articles/article_2373.asp?SK=), y en todo caso te aconsejo que averigues un poco de la API "GetTimeZoneInformation"

Suerte!