Cita:
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
[-]
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