Utilizando a Função DayOfWeek no Delphi

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

Acompanhe o seguinte 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.

Artigos relacionados