Data e dia da semana ! Socorro !

Delphi

18/03/2003

Prezados colegas,

Estou fazendo um relatório de agenda no qreport com os seguintes campos:

Data
Hora

A data é escrita no formato dd/mm/aaaa. Estou querendo colocar um label em frente a data informando o dia da semana por extenso, segunda-feira. Sei que devo usar a função dayofweek mas não sei como.

A data está relacionada a um campo chamado data em meu banco de dados.

Obrigado

Wellington


Sheudas

Sheudas

Curtidas 0

Respostas

Evandro Massini

Evandro Massini

18/03/2003

Tente o seguinte:

label1.caption:=formatdatetime(´dddd´,data);


Até mais...


GOSTEI 0
Bilouro

Bilouro

18/03/2003

Naum vai precisar do dayofweek, use assim por exemplo:

showmessage(FormatDateTime(´dddd´,date));

agora se quiser garantir que seja exibido sempre em portugues mesmo em um sistema em inglês:

procedure geradata;
var
dias: array[1..7] of string;
begin
dias[1]:=´Domingo´;
dias[2]:=´Segunda-feira´;
dias[3]:=´Terça-feira´;
dias[4]:=´Quarta-feira´;
dias[5]:=´Quinta-feira´;
dias[6]:=´Sexta-feira´;
dias[7]:=´Sabado´;
showmessage(dias[DayOfWeek(date)]);
end;

[]´s


GOSTEI 0
POSTAR