Dicas Delphi – Descobrindo o Dia da Semana

Salve, salve

Esta é uma dica bastante simples, pra você que está iniciando e precisa saber como descobrir o dia da semana através de uma data

variavel_datetime := StrToDate(Edit1.Text);

case DayOfWeek( variavel_datetime ) of
1: variavel_string := ‘Domingo’;
2: variavel_string := ‘Segunda-Feira’;
3: variavel_string := ‘Terça-Feira’;
4: variavel_string := ‘Quarta-Feira’;
5: variavel_string := ‘Quinta-Feira’;
6: variavel_string := ‘Sexta-Feira’;
7: variavel_string := ‘Sábado’;
end;

ShowMessage(variavel_string);

Obs.: Você também poderá montar uma função e devolver o dia da semana como result, após passar a data por parâmetro.

Take care

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s