[vejerf]

Hola de nuevo Lepe,
pues resulta que la unidad que me has pasado no va fina del todo. Yo hago lo siguiente:

Código Delphi [-]
procedure ThTimer.ActualizaEstado;
var
  Horario : THorario;
begin
  Horario := EstamosEnhorarioVerano(now);
  if Horario = hVerano then
    PrincipalForm.Texto.Lines.Add('Verano: '+DateTimeToStr(Now))
  else if Horario = hInvierno then
    PrincipalForm.Texto.Lines.Add('Invierno: '+DateTimeToStr(Now))
end;

Pues resulta que ma da ahora como horario de verano. Sim embargo, le cambio la fecha al sistema y le pongo 1 de noviembre por ejemplo y si q me dice q está en horario de invierno.
Noviembre, Diciembre parece ser que es invierno... y más o menos el resto verano!!! q alegria no???