Segunda Quarta Sexta

16/04/2013

1

Pessoal, estou com o seguinte problema, preciso fazer agendamentos automáticos tipo seg,qua,sex ou ter,qui ou seg,qui, vai depender dos checkbox que marcarei, alguém pode me ajudar a montar esse código, pois estou apanhando até... desde ja agradeço a ajuda

Junior
Responder

Posts

16/04/2013

William

Colega esse site está detalhando uma função que pode ajudar muito você.
[url]http://www.delphibasics.co.uk/RTL.asp?Name=DayOfTheWeek[/url]

Basta adaptar conforme o checkbox selecionado.
Responder
Colega esse site está detalhando uma função que pode ajudar muito você.
[url]http://www.delphibasics.co.uk/RTL.asp?Name=DayOfTheWeek[/url]

Basta adaptar conforme o checkbox selecionado.


Então, essa questão do dia da semana eu consegui resolver, oque não estou conseguindo fazer é exatamente vincular os checkbox nos dias da semana e fazer o loop pra pegar somente os dias da semana.. é nisso que to precisando de ajuda... se quiser posso mandar um código que eu fiz pra vc dar uma olhada...
Responder

16/04/2013

Douglas

Boa noite amigão,

o melhor seria você colocar

com o radiogroup, que fica mais organizado

que o checkbox. Abaixo esta o código e não esqueça de adicionar

os dias na propriedade items do radiogroup.

var
  myDate : TDateTime;
  day    : array[1..7] of string;

begin
   
case radiogroup1.itemindex of
  0:day[1] := 'Monday';
  1:day[2] := 'Tuesday';
  2:day[3] := 'Wednesday';
  3:day[4] := 'Thursday';
  4:day[5] := 'Friday';
  5:day[6] := 'Saturday';
  6:day[7] := 'Sunday';
end;

  myDate := EncodeDate(2002, 12, 25);

  ShowMessage('Christmas day 2002 is on a '+day[DayOfTheWeek(myDate)]);
end;



Qualquer dúvida é só postar.
Responder
Douglas, boa noite!!!

Então o radiogroup eu não consigo utilizar pois preciso marcar mais de um dia da semana e acho que esse componente não permite, agora coloquei um listbox, mas o problema maior esta no seguinte, tenho 20 agendamentos pra serem feitos todas as terças e sextas por exemplo, não estou conseguindo fazer isso, ou sobra agendamento ou falta agendamento... heheheh

desde ja agradeço a atenção..

Junior
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira