Buscar por:

Controlando o Acesso através do Horário

Código

Olá Pessoal, aqui vamos ensinar como controlar a utilização do sistema através do horário. Tbm está incluso o dia da semana animado.

Crie algumas variáveis para controlar o tempo (data, hora e dia), não esquecendo de inicializa-las no início do programa

var

   hoje : TDate;

   dia, tarde, noite : string;

   hora, data : TDateTime;

Begin

dia   := '7:00';

tarde := '12:00';

noite := '18:00';

hora  := Time;

hoje := Date;

Vamos criar um controle para diferenciarmos manhã, tarde e noite

  If hora > StrToTime(Dia) then

     begin     

        Mensagem.Panels[1].Text := 'Bom Dia';

     end;

  If hora > StrToTime(Tarde) then

     begin

        Mensagem.Panels[1].Text := 'Boa Tarde';

     end;

  If hora > StrToTime(Noite) then

     begin

        Mensagem.Panels[1].Text := 'Boa Noite';

     end;

Agora iremos criar apenas uma restrição para a utilização após determinado período. Utilize o exemplo e faça conforme lhe aprover.

// controle para o período noturno

   If (L_hora.Caption >= '21:00') then

        begin

         Mensagem.Panels[4].Text := 'Muito Obrigado por sua visita. Volte Sempre!';

         ShowMessage('Sua Mensagem '#13'          Boa Noite!');

         Application.Terminate;

        end;

// Formatação da Data por extenso no Label.

   L_Data.Caption := FormatDateTime('dd "de" mmmm "de" yyyy', Now + 0.1);

   L_semana.Caption := FormatDateTime('dddd ', Now + 0.1);

// Agora, iremos animar o dia da semana em um label

  If L_semana.font.Color = clWindowText then

    begin

        L_semana.font.Color := clRed;

    end

  Else

      L_semana.font.color := clWindowText;

Prontinho, amigos...

Espero que lhes seja Útil.

   Abraços