Fórum Dias entre datas continuo com problemas... #258388
14/11/2004
0
no procedimento abaixo a variável [b:f0febcb85c]vDias[/b:f0febcb85c] está assumindo os dias [b:f0febcb85c]domingo, terça-feira e sexta-feira[/b:f0febcb85c]. gostaria de colocar todos os dias da semana dentro de listbox por exemplo e quando o usuário selecionasse os dias dentro da lista fosse retornado para uma variável, Ex [b:f0febcb85c]vDiasSeleciondos[/b:f0febcb85c] os números dos items selecionados e não o conteúdo.
[size=9:f0febcb85c]
procedure TForm1.btgerarClick(Sender: TObject);
var
vDias:String;
vData:TDateTime;
begin
vDias := ´1 3 6´;//pega os dias da semana
//Pega a data inicial do periodo
vData := Datai.Date;
//enquanto a data inicial for menor ou igual a data final
while vData 0 then
Memo1.Lines.Add(DateToStr(vData) +´ - ´+ FormatDateTime(´dddd´,vData));
vData:=vData+1;
end;
end;[/size:f0febcb85c]
se alguém solber de outra forma para gerar as datas por favor é de uma certa urgência!
Agradeço a todos!!
Paullsoftware
Curtir tópico
+ 0Posts
06/01/2005
Paullsoftware
:(
veleu! da próxima, vou tentar ter dúvidas menos complicadas!
:wink:
Gostei + 0
06/01/2005
Emerson Nascimento
Gostei + 0
06/01/2005
Eixox
Você gera uma pesquisa dos dias que o aluno veio a aula, por exemplo:
Segunda, quarta e sexta.
O usuário do sistema vai lá e clica em um dos dias e o sistema consulta esses dias da semanda, é isso?
Acho que você está confundindo as coisas. Um dia para o delphi é um valor inteiro que define não somente a data mas também a hora, minuto e segundo.
Se você selecionar um dia da semana por exemplo, segunda-feira, a qual segunda feira isso se refere, de que dia? de que mês e de que ano?
Não entendi o que você quer fazer direito, você poderia explicar melhor, para mim por favor, que saiba eu possa ajudá-lo?
Gostei + 0
07/01/2005
Paullsoftware
Segunda, Quarta e Sexta
e seja retornado para variável [b:33655ccbd1]vDias[/b:33655ccbd1] os valores indicados pelo usuário para que eu possa gerar os dias de aula desse aluno!
incrementando! quando esse dia for um feriado ele fique em destaque na cor vermelha por exemplo (mais ai já é outra história)...
valeu! :wink:
Gostei + 0
07/01/2005
Emerson Nascimento
vc terá no listbox
Domingo
Segunda-Feira
Terça-Feira
Quarta-Feira
Quinta-Feira
Sexta-Feira
Sábado
onde domingo é o item 0.
ok?
esse listbox está com a propriedade MultiSelect=True para poder ser selecionado mais de um item (ao invés do listbox, vc pode utilizar um checklistbox, da palleta Additional).
para colocar os valores selecionados na variável vDias, faça algo como:
vDias := ´´;
for i := 0 to ListBox.Count-1 do
if ListBox.Selected[i] then // ou CheckListBox.Checked[i] then
vDias := vDias + IntToStr(i+1) + ´ ´;
pronto. creio que seja só isso.
Gostei + 0
12/01/2005
Paullsoftware
quando chegar em casa vou testar mais pelo que analisei parece resolver o problema! valeu um forte abraço :wink:
e qq coisa estamos ai!
Gostei + 0
18/01/2005
Paullsoftware
fiz umas mudanças e ficou legauzinho!!!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)