Ver Mensaje Individual
  #4  
Antiguo 16-05-2007
Avatar de marceloalegre
[marceloalegre] marceloalegre is offline
Miembro Premium
 
Registrado: abr 2005
Ubicación: Mar del Plata - Argentina
Posts: 448
Reputación: 20
marceloalegre Va por buen camino
Post a ver esto...

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

Código Delphi [-]
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?
Responder Con Cita