Como saber se o Windows está no horário de verão?

DAVID CANDIDO DA SILVA

DAVID CANDIDO DA SILVA Publicado 17/11/2017 


É necessário estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows.

A função retorna TRUE caso o Windows esteja no horário de verão.
Abaixo segue o código fonte da função:

function IsHorarioVerao: boolean;
  var T: TTimeZoneInformation;
begin
  Result := (GetTimeZoneInformation(T) = TIME_ZONE_ID_DAYLIGHT);
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsHorarioVerao then
    ShowMessage('O Windows está no horário de verão!')
  else
    ShowMessage('O Windows NÃO está no horário de verão!');
end;
 

Voltar ao topo