Como saber si estamos en horario de verano o de invierno

[[Lepe]]

Qué bochoorrrrno . La unidad ni siquiera compilaba

Ya lo he resuelto (edité mi mensaje anterior y lo correjí), los parámetros de TryEncodeDayOfWeekInMonth estaban mal, por eso
InicioVeranoSpain daba la fecha 1/1/1900 y
finveranoSpain daba 30/10/2008

todo lo que estuviera en ese rango, lo daba como verano.

Ahora está correcto:
InicioVeranoSpain da la fecha 30/03/2008 02:00:00 y
finveranoSpain da 26/10/2008 03:00:00

Todas las fechas y horas que se encuentren en ese rango, es precisamente horario de verano.

Saludos y gracias por el aviso.

[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!!!