Delphi dicas

Função para apresentação de uma data no formato 'dia da semana'

// Função para apresentação de uma data no formato 'Dia da semana'.

function MostraData(dtData: TDateTime): string;

var

intDiaSemana: integer;

strDiaSemana: string;

begin

        intDiaSemana := DayOfWeek(dtData);

        case intDiaSemana of

        1: strDiaSemana := 'Domingo - ';

        2: strDiaSemana := 'Segunda-feira - ';

        3: strDiaSemana := 'Terça-feira - ';

        4: strDiaSemana := 'Quarta-feira - ';

        5: strDiaSemana := 'Quinta-feira - ';

        6: strDiaSemana := 'Sexta-feira - ';

        7: strDiaSemana := 'Sábado - ';

end;

Result := strDiaSemana+DateToStr(dtData);

end;