encontrando o dia da semana

30/01/2006

pessoal, eu preciso saber qual o dia da semana (SEGUNDA-FEIRA, TERÇA...ETC) através da data atual ... como faço isso?


Rafael Santana

Respostas

30/01/2006

Leonardobhbr

Function DiadaSemana(Data : TDate) : string;
const
semana : array[1..7] of string = (´Domingo´,´Segunda-feira´,´Terça-feira´,´Quarta-feira´,´Quinta-feira´,´Sexta-feira´, ´Sábado´);
begin
Result := semana[DayOfWeek(strtodate(Data))]
end;


Responder Citar

30/01/2006

Rafael Santana

Obrigado amigo...deu certinho

:)


Responder Citar

30/01/2006

Aroldo Zanela

Colega,

Se não for efetuar nenhum tipo de cálculo, pode-se utilizar:

ShowMessage(FormatDateTime(´"Hoje é dia "dd", " dddd"."´, date));



Responder Citar