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