Detectar Horario Verano/Invierno

[roman]

Empezado por Javinho

¿estamos en horario de verano o de invierno?

Ahora, en horario de verano. En general quizá te sirva esta función:

Código Delphi [-]
(*
  Devuelve true si Date está dentro del horario
  de verano y false en caso contrario
*)
function WithinDayLight(Date: TDate): Boolean;
var
  tzInfo: TTimeZoneInformation;
  StandardDate: TDate;
  DayLightDate: TDate;

begin
  GetTimeZoneInformation(tzInfo);

  DaylightDate := EncodeDate(
    2004,
    tzInfo.DaylightDate.wMonth,
    tzInfo.DaylightDate.wDay
  );

  StandardDate := EncodeDate(
    2004,
    tzInfo.StandardDate.wMonth,
    tzInfo.StandardDate.wDay
  );

  Result := (Date >= DayLightDate) and (Date < StandardDate);
end;

// Saludos