[DELPHI] DIA DA SEMANA POR EXTENSO

function DiaSemana(Data: TDateTime): String;

var

  DiaDaSemana : array [1..7] of String[13];

begin

DiaDasemana [1]:= 'Domingo';

DiaDasemana [2]:= 'Segunda-feira';

DiaDasemana [3]:= 'Terça-feira';

DiaDasemana [4]:= 'Quarta-feira';

DiaDasemana [5]:= 'Quinta-feira';

DiaDasemana [6]:= 'Sexta-feira';

DiaDasemana [7]:= 'Sábado';

result := DiaDasemana[DayOfWeek(Data)];

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】