Utilizando a Função DayOfWeek no Delphi

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Veja nessa dica como utilizar a função DayofWeek em Delphi e aprenda a indicar em qual dia da semana cai uma determinada data.

A dica deste artigo, mostra como utilizar a função DayofWeek. Essa função tem como objetivo indicar em qual dia da semana cai uma determinada data. Em um form em branco coloque um componente Edit e um Button e arrume o form.

Ao clicarmos no botão, iremos verificar em qual dia da semana cai a data digitada no Edit. No evento OnClick do Botão escreva o seguinte código:

if (dayofweek(strtodate(edit1.text)))=1 then

  Showmessage('Esta data cai num domingo')

else

  if (dayofweek(strtodate(edit1.text)))=7 then

    Showmessage('Esta data cai num sábado')

  else

    if (dayofweek(strtodate(edit1.text)))=2 then

      Showmessage('Esta data cai numa segunda')

Entendo o Código

if (dayofweek(strtodate(edit1.text)))=1 then

Na linha acima verificamos se a data digitada no Edit cai no domingo. Note que utilizamos o comando strtodate que tem a função de transformar string para o formato DateTime. Comparamos se a data digitada é igual a 1, que equivale a domingo. Se for igual a domingo, exibiremos uma mensagem informando que a data cairá num domingo.

Cada dia da semana é representada por um número. Esses números equivalem aos setes dias da semana, que começam no domingo e termina no sábado. Veja na tabela abaixo, os números que representam cada dia da semana

Vimos como é fácil o uso da função DayOfWeek, que serve para verificar em qual dia da semana cai uma determinada data. Ela pode ser utilizada, por exemplo, quando quisermos fazer um programa de agenda eletrônica.

Por Thiago Avelar

thiago@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?