Fórum Cadastro de datas por mes #398221

27/03/2011

0

Delphi

Boa tarde,

Preciso fazer um sistema de agendamento da seguinte maneira:

Mes:

Fevereiro (por exemplo)

Frequencia:

2 vezes por semana. Ex.: Segundas e quartas

O que eu preciso fazer:

Preciso gravar numa tabela todas as segundas e quartas do mes de Fevereiro, por exemplo, de uma vez só. Clico nas datas referidas e gravar na tabela. Como fazer isso? Necessito de ajuda para montar a tabela também.

Agradeço desde já.

Frederico Brigatte***

Frederico Brigatte***

Responder

Posts

27/03/2011

Frederico Brigatte***

Boa tarde,

Preciso fazer um sistema de agendamento da seguinte maneira:

Mes:

Fevereiro (por exemplo)

Frequencia:

2 vezes por semana. Ex.: Segundas e quartas

O que eu preciso fazer:

Preciso gravar numa tabela todas as segundas e quartas do mes de Fevereiro, por exemplo, de uma vez só. Clico nas datas referidas e gravar na tabela. Como fazer isso? Necessito de ajuda para montar a tabela também.

Agradeço desde já.






Utilizando o MonthCalendar1 para selecionar 1 dia assim:

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  edit1.Text := dateTostr(MonthCalendar1.Date);
end;

Coloquei a dúvida com a foto para facilitar o entendimento. Preciso fazer para todas as segundas e quartas de uma vez só. A tabela depois em faço, preciso somente do código. Para uma data consegui.

agradeço por hora




Responder

Gostei + 0

28/03/2011

André Silveira 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.
Responder

Gostei + 0

29/03/2011

Frederico Brigatte*** 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.

Ok, obrigado pela resposta. Vou verificar.

Caro amigo André. Não entendi bem o funcionamento dessa rotina. Vou explicar o que estou precisando, esse é o caminho mas não estou conseguindo fazer:

Preciso fazer um tipo de grade de horários, ou seja, escolho uma determinada data e seu horário e assim por diante, até acabar o mês. É possível colocar em Grid ou algo parecido um calendário e uma combobox com os horários?

Agradeço desde já pela atenção.
Responder

Gostei + 0

30/03/2011

Frederico Brigatte*** 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.

Ok, obrigado pela resposta. Vou verificar.

Caro amigo André. Não entendi bem o funcionamento dessa rotina. Vou explicar o que estou precisando, esse é o caminho mas não estou conseguindo fazer:

Preciso fazer um tipo de grade de horários, ou seja, escolho uma determinada data e seu horário e assim por diante, até acabar o mês. É possível colocar em Grid ou algo parecido um calendário e uma combobox com os horários?

Agradeço desde já pela atenção.


Fui mais claro agora?
Responder

Gostei + 0

30/03/2011

Frederico Brigatte*** 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.

Ok, obrigado pela resposta. Vou verificar.

Caro amigo André. Não entendi bem o funcionamento dessa rotina. Vou explicar o que estou precisando, esse é o caminho mas não estou conseguindo fazer:

Preciso fazer um tipo de grade de horários, ou seja, escolho uma determinada data e seu horário e assim por diante, até acabar o mês. É possível colocar em Grid ou algo parecido um calendário e uma combobox com os horários?

Agradeço desde já pela atenção.


Fui mais claro agora?


É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.
Responder

Gostei + 0

31/03/2011

Frederico Brigatte*** 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.

Ok, obrigado pela resposta. Vou verificar.

Caro amigo André. Não entendi bem o funcionamento dessa rotina. Vou explicar o que estou precisando, esse é o caminho mas não estou conseguindo fazer:

Preciso fazer um tipo de grade de horários, ou seja, escolho uma determinada data e seu horário e assim por diante, até acabar o mês. É possível colocar em Grid ou algo parecido um calendário e uma combobox com os horários?

Agradeço desde já pela atenção.


Fui mais claro agora?


É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.


Ué, ninguém pra me ajudar? Postaram esse código aqui mas não estou entendendo o que faz e preciso o que esta descrito :

É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.

Responder

Gostei + 0

31/03/2011

Frederico Brigatte*** 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.

Ok, obrigado pela resposta. Vou verificar.

Caro amigo André. Não entendi bem o funcionamento dessa rotina. Vou explicar o que estou precisando, esse é o caminho mas não estou conseguindo fazer:

Preciso fazer um tipo de grade de horários, ou seja, escolho uma determinada data e seu horário e assim por diante, até acabar o mês. É possível colocar em Grid ou algo parecido um calendário e uma combobox com os horários?

Agradeço desde já pela atenção.


Fui mais claro agora?


É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.


Ué, ninguém pra me ajudar? Postaram esse código aqui mas não estou entendendo o que faz e preciso o que esta descrito :

É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.



Ninguém?
Responder

Gostei + 0

01/04/2011

Frederico Brigatte*** 

var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data <= StrToDate('30/04/2011') do
  begin
    if DayOfWeek(Data) = 2 then
    begin
      SetLength(Segundas, Length(Segundas) + 1);
      Segundas[High(Segundas)] := Data
    end;

    if DayOfWeek(Data) = 4 then
    begin
      SetLength(Quartas, Length(Quartas) + 1);
      Quartas[High(Quartas)] := Data
    end;

    Data := Data + 1;
  end;
end;

end.

Adapte a rotina acima para que se adeque as suas necessidades.

Ok, obrigado pela resposta. Vou verificar.

Caro amigo André. Não entendi bem o funcionamento dessa rotina. Vou explicar o que estou precisando, esse é o caminho mas não estou conseguindo fazer:

Preciso fazer um tipo de grade de horários, ou seja, escolho uma determinada data e seu horário e assim por diante, até acabar o mês. É possível colocar em Grid ou algo parecido um calendário e uma combobox com os horários?

Agradeço desde já pela atenção.


Fui mais claro agora?


É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.


Ué, ninguém pra me ajudar? Postaram esse código aqui mas não estou entendendo o que faz e preciso o que esta descrito :

É assim: Preciso selecionar várias datas, independente do dia da semana, desprezar segundas e quartas, pode ser qualquer dia, e gravar numa tabela as datas selecionadas. Preciso saber como fazer a seleção e onde armazenar as datas selecionadas para gravar posteriormente numa tabela.



Ninguém?


Ningém pra me ajudar?
Responder

Gostei + 0

05/04/2011

Frederico Brigatte***

[CODE]
var
  Form1: TForm1;
  Segundas : Array of TDate;
  Quartas  : Array of TDate;

implementation

uses DateUtils;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Data : TDateTime;
begin
  Data := StrToDate('01/04/2011');

  while Data
Responder

Gostei + 0

06/04/2011

Frederico Brigatte***

De uma olhada nestes links
https://www.devmedia.com.br/forum/delphi/386835-Componente-para-agenda-de-compromisso.html
https://www.devmedia.com.br/forum/delphi/389121-Como-Criar-uma-Rotina-de-Marcacao-de-Agenda.html

Espero ter colaborado.


Não consegui fazer download do Savério Vertoni Jr.

É o 386835
Responder

Gostei + 0

16/04/2013

José

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
Responder

Gostei + 0

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

Aceitar