encontrando o dia da semana

Delphi

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

Rafael Santana

Curtidas 0

Respostas

Leonardobhbr

Leonardobhbr

30/01/2006

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;


GOSTEI 0
Rafael Santana

Rafael Santana

30/01/2006

Obrigado amigo...deu certinho

:)


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

30/01/2006

Colega,

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

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



GOSTEI 0
POSTAR