Como saber si estamos en horario de verano o de invierno

[vejerf]

Quien busca, halla... así dice el refrán... pues buscando buscando encontré esta otra función que de manera muy simple me da lo que buscaba. La dejo para quien le pueda interesar y le doy mil gracias a aquel q la implementó jeje

Código Delphi [-]
(*
Devuelve true si Date está dentro del horario
de verano y false en caso contrario
*)
function EsHorarioVerano(Date: TDate): Boolean;
var
tzInfo: TTimeZoneInformation;
Horario: DWORD;
begin
Horario:= GetTimeZoneInformation(tzInfo);
if Horario = TIME_ZONE_ID_DAYLIGHT then
Result:= True
else
Result:= False;
end;

Y muchas gracias como siempre a ti tb Lepe por tomarte tus molestias!!!