dia da semana pelo delphi

05/05/2020

0

Delphi

Preciso saber o dia da semana pelo delplhi por exempro eu abro o porgrama no dia 05/05/2020 ai ele me retorna se é segunda ou terça assim em diante
preciso jogar para uma label alguem me ajuda ?
Lucas

Lucas

Responder

Post mais votado

05/05/2020

procedure TForm1.FormCreate(Sender: TObject);
const
  DiasSemana: array[1..7] of string = ('Domingo', 'Segunda-feira', 'Terça-feira', 'Quarta-feira', 'Quinta-feira', 'Sexta-feira', 'Sábado');
var
  DW: word;
begin
  DW := DayOfWeek(Now);
  ShowMessage( DiasSemana[DW] );
end;


Emerson Nascimento

Emerson Nascimento
Responder
Gostei + 3

Mais Posts

05/05/2020

Raimundo Pereira

Preciso saber o dia da semana pelo delplhi por exempro eu abro o porgrama no dia 05/05/2020 ai ele me retorna se é segunda ou terça assim em diante
preciso jogar para uma label alguem me ajuda ?

Fala amigo, eu utilizo uma função e me atende bem

uses
Dateutils,

function DiaSemana(Data: TDateTime): String;
{ Retorna dia da semana }
var
NoDia: Integer;
DiaDaSemana: array [1 .. 7] of String[13];
begin
{ Dias da Semana }
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';
NoDia := DayOfWeek(Data);
DiaSemana := DiaDaSemana[NoDia];
end;

Para chamar esta função>> ShowMessage(DiaSemana(now));
Responder
Gostei + 0

05/05/2020

Raimundo Pereira

Preciso saber o dia da semana pelo delplhi por exempro eu abro o porgrama no dia 05/05/2020 ai ele me retorna se é segunda ou terça assim em diante
preciso jogar para uma label alguem me ajuda ?

Fala amigo, eu utilizo uma função e me atende bem

uses
Dateutils,

function DiaSemana(Data: TDateTime): String;
{ Retorna dia da semana }
var
NoDia: Integer;
DiaDaSemana: array [1 .. 7] of String[13];
begin
{ Dias da Semana }
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';
NoDia := DayOfWeek(Data);
DiaSemana := DiaDaSemana[NoDia];
end;

Para chamar esta função>>
ShowMessage(DiaSemana(now));


Form.caption:=DiaSemana(now));
Responder
Gostei + 0

05/05/2020

Lucas

Preciso saber o dia da semana pelo delplhi por exempro eu abro o porgrama no dia 05/05/2020 ai ele me retorna se é segunda ou terça assim em diante
preciso jogar para uma label alguem me ajuda ?

Fala amigo, eu utilizo uma função e me atende bem

uses
Dateutils,

function DiaSemana(Data: TDateTime): String;
{ Retorna dia da semana }
var
NoDia: Integer;
DiaDaSemana: array [1 .. 7] of String[13];
begin
{ Dias da Semana }
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';
NoDia := DayOfWeek(Data);
DiaSemana := DiaDaSemana[NoDia];
end;

Para chamar esta função>>
ShowMessage(DiaSemana(now));


Form.caption:=DiaSemana(now));

primeiro cria uma unit e poe isso ?
function DiaSemana(Data: TDateTime): String;
{ Retorna dia da semana }
var
NoDia: Integer;
DiaDaSemana: array [1 .. 7] of String[13];
begin
{ Dias da Semana }
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';
NoDia := DayOfWeek(Data);
DiaSemana := DiaDaSemana[NoDia];
end;

e depois no meu form coloco
Label14.caption:=DiaSemana(now));??????
Responder
Gostei + 0

05/05/2020

Raimundo Pereira

Lucas, eu particularmente uso concentro minhas funções em uma única unit
Quando preciso chamar alguma função, em Uses eu declaro esta unit e posso chamar qq função em qq form sem ter que ficar criando a mesma função toda vez que precisar.

Agora se você terá apenas um form, você poderá criar esta função no mesmo form

Label14.caption:=DiaSemana(now)); Isso
Responder
Gostei + 0

05/05/2020

Eduardo Silva

Preciso saber o dia da semana pelo delplhi por exempro eu abro o porgrama no dia 05/05/2020 ai ele me retorna se é segunda ou terça assim em diante
preciso jogar para uma label alguem me ajuda ?


Tente isso:
  if DayOfWeek(Date)=1 then lblData.Caption := 'Domingo';
  if DayOfWeek(Date)=2 then lblData.Caption := 'Segunda';
  if DayOfWeek(Date)=3 then lblData.Caption := 'Terça';
  if DayOfWeek(Date)=4 then lblData.Caption := 'Quarta';
  if DayOfWeek(Date)=5 then lblData.Caption := 'Quinta';
  if DayOfWeek(Date)=6 then lblData.Caption := 'Sexta';
  if DayOfWeek(Date)=7 then lblData.Caption := 'Sábado';


Onde Date é a data do dia, voc~e pode ate criar uma variável do tipo Tdate e atribuir a data que quiser e irar retornar qual dia da sema a data está.
Responder
Gostei + 1

07/05/2020

Lucas

Preciso saber o dia da semana pelo delplhi por exempro eu abro o porgrama no dia 05/05/2020 ai ele me retorna se é segunda ou terça assim em diante
preciso jogar para uma label alguem me ajuda ?


Tente isso:
  if DayOfWeek(Date)=1 then lblData.Caption := 'Domingo';
  if DayOfWeek(Date)=2 then lblData.Caption := 'Segunda';
  if DayOfWeek(Date)=3 then lblData.Caption := 'Terça';
  if DayOfWeek(Date)=4 then lblData.Caption := 'Quarta';
  if DayOfWeek(Date)=5 then lblData.Caption := 'Quinta';
  if DayOfWeek(Date)=6 then lblData.Caption := 'Sexta';
  if DayOfWeek(Date)=7 then lblData.Caption := 'Sábado';


Onde Date é a data do dia, voc~e pode ate criar uma variável do tipo Tdate e atribuir a data que quiser e irar retornar qual dia da sema a data está.
v
vlw deu certo
Responder
Gostei + 0

08/05/2020

Guilherme Wiethaus 

procedure TForm1.FormCreate(Sender: TObject);
const
  DiasSemana: array[1..7] of string = ('Domingo', 'Segunda-feira', 'Terça-feira', 'Quarta-feira', 'Quinta-feira', 'Sexta-feira', 'Sábado');
var
  DW: word;
begin
  DW := DayOfWeek(Now);
  ShowMessage( DiasSemana[DW] );
end;




Esta solução é mais limpa e inteligente usando matriz de constante.
Responder
Gostei + 1

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar